SuperHack/SuperHack CD.bin/CODING/VBASIC/T2W16910.ZIP/T2WIN-16.FRM

Visual Basic Form | 1997-01-16 | 292.8 KB | 7,452 lines

VERSION 4.00
Begin VB.Form frmT2W
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "TIME TO WIN (16-Bit Demo)"
   ClientHeight    =   8115
   ClientLeft      =   285
   ClientTop       =   465
   ClientWidth     =   9105
   BeginProperty Font
      name            =   "MS Sans Serif"
      charset         =   1
      weight          =   700
      size            =   8.25
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   Height          =   8460
   Left            =   255
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8115
   ScaleWidth      =   9105
   ShowInTaskbar   =   0   'False
   Tag             =   "c"
   Top             =   150
   Width           =   9165
   Begin VB.PictureBox Picture1
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   480
      Left            =   8550
      Picture         =   "T2WIN-16.frx":0000
      ScaleHeight     =   480
      ScaleWidth      =   480
      TabIndex        =   0
      Top             =   180
      Visible         =   0   'False
      Width           =   480
   End
   Begin VB.ComboBox Combo2
      Height          =   300
      Left            =   6570
      TabIndex        =   4
      Top             =   450
      Width           =   1185
   End
   Begin VB.TextBox Text1
      Height          =   285
      Left            =   3150
      TabIndex        =   10
      Text            =   "Text1"
      Top             =   7740
      Width           =   5865
   End
   Begin VB.Frame Frame1
      Height          =   1455
      Left            =   90
      TabIndex        =   6
      Top             =   6210
      Visible         =   0   'False
      Width           =   8925
      Begin VB.ListBox List1
         Height          =   1200
         Left            =   180
         TabIndex        =   7
         Top             =   180
         Width           =   4155
      End
      Begin VB.ListBox List2
         Height          =   1200
         Left            =   4590
         TabIndex        =   8
         Top             =   180
         Width           =   4155
      End
   End
   Begin VB.CommandButton Command1
      Caption         =   "&Start demo for the selected item"
      Height          =   285
      Left            =   90
      TabIndex        =   2
      Top             =   450
      Width           =   4065
   End
   Begin VB.ComboBox Combo1
      Height          =   300
      Left            =   90
      TabIndex        =   1
      Top             =   90
      Width           =   7665
   End
   Begin VB.Label Label2
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "&Text for string manipulation"
      ForeColor       =   &H80000008&
      Height          =   195
      Left            =   90
      TabIndex        =   9
      Top             =   7785
      Width           =   2985
   End
   Begin VB.Label Label1
      BackStyle       =   0  'Transparent
      Caption         =   "&Iterations for speed test"
      Height          =   195
      Left            =   4320
      TabIndex        =   3
      Top             =   510
      Width           =   2175
   End
   Begin VB.Label Label3
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Height          =   5340
      Left            =   90
      TabIndex        =   5
      Top             =   810
      Width           =   8925
      WordWrap        =   -1  'True
   End
Attribute VB_Name = "frmT2W"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Option Base 1
Dim Item       As Integer
Dim ItemFile   As Integer
Dim ItemMean   As Integer
Const RandI = 32767
Const RandL = 2147483647
Const RandS = 1E+10!
Const RandD = 1E+16
Dim Tmp  As String
Sub TestMaxNotXI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Double
   ReDim array(ItemMean) As Integer
   Randomize Timer
   For i = LBound(array) To UBound(array)
      array(i) = RandI * Rnd(1)
      List1.AddItem "" & array(i)
   Next i
   j = cSortI(array())
   For i = LBound(array) To UBound(array)
      List2.AddItem "" & array(i)
   Next i
   List2.ListIndex = List2.ListCount - 1
   Tmp1 = "The MAXNOTX of a integer array of " & (ItemMean + 1) & " elements (not '" & array(UBound(array)) & "') is " & Chr$(13) & Chr$(13) & cMaxNotXI(array(), array(UBound(array))) & Chr$(13) & Chr$(13)
   cStartBasisTimer
   For i = 1 To ItemFile
      m = cMaxNotXI(array(), array(UBound(array)))
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestSplitFile()
   Dim Title         As String
   Dim Tmp           As String
   Dim Tmp1          As String
   Dim Tmp2          As String
   Dim Tmp3          As String
   Dim i             As Integer
   Dim j             As Long
   Dim PartSize      As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\autosplt"
   PartSize = 512
   Tmp1 = Tmp1 & "FileSize of '" & Tmp & "' is " & cFileSize(Tmp) & Chr$(13) & Chr$(13)
   j = cSplitFile(Tmp, Tmp2, PartSize)
   Tmp1 = Tmp1 & "SplitFile '" & Tmp & "' in part size of '" & PartSize & "' is " & j & Chr$(13) & Chr$(13)
   For i = 0 To (j - 1)
      Tmp3 = Tmp2 & "." & Format$(i, "000")
      Tmp1 = Tmp1 & "FileSize of '" & Tmp3 & "' is " & cFileSize(Tmp3) & Chr$(13)
   Next i
   Tmp1 = Tmp1 & Chr$(13)
   cStartBasisTimer
   For i = 1 To Item
      j = cSplitFile(Tmp, Tmp2, PartSize)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
   Label3.Caption = Tmp1
End Sub
Private Sub TestCutFile()
   Dim Title         As String
   Dim Tmp           As String
   Dim Tmp1          As String
   Dim Tmp2          As String
   Dim Tmp3          As String
   Dim i             As Integer
   Dim j             As Long
   Dim CutPosition   As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\autoexec.ct1"
   Tmp3 = "c:\autoexec.ct2"
   CutPosition = 345
   Tmp1 = Tmp1 & "FileSize of '" & Tmp & "' is " & cFileSize(Tmp) & Chr$(13) & Chr$(13)
   Tmp1 = Tmp1 & "CutFile '" & Tmp & "' in position '" & CutPosition & "' into file '" & Tmp2 & "' and '" & Tmp3 & "' is " & cCutFile(Tmp, Tmp2, Tmp3, CutPosition) & Chr$(13) & Chr$(13)
   Tmp1 = Tmp1 & "FileSize of '" & Tmp2 & "' is " & cFileSize(Tmp2) & Chr$(13)
   Tmp1 = Tmp1 & "FileSize of '" & Tmp3 & "' is " & cFileSize(Tmp3) & Chr$(13) & Chr$(13)
   cStartBasisTimer
   For i = 1 To Item
      j = cCutFile(Tmp, Tmp2, Tmp3, CutPosition)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
   Label3.Caption = Tmp1
End Sub
Private Sub TestB2I()
   Dim lngResult        As Long
   Dim intResult        As Integer
   Dim strResult        As String
   Dim strDisplay       As String
   Dim i                As Integer
   Dim i1               As String
   Dim i2               As String
   Dim l1               As String
   Dim l2               As String
   i1 = "1010101010101010"
   i2 = "0101010101010101"
   l1 = "10101010101010101010101010101010"
   l2 = "01010101010101010101010101010101"
   lngResult = 0
   strResult = ""
   strDisplay = ""

   strDisplay = strDisplay & "B2I of " & i1 & " is " & cB2I(i1) & vbCr
   strDisplay = strDisplay & "B2I of " & i2 & " is " & cB2I(i2) & vbCr & vbCr
   strDisplay = strDisplay & "I2B of " & cB2I(i1) & " is " & cI2B(cB2I(i1)) & vbCr
   strDisplay = strDisplay & "I2B of " & cB2I(i2) & " is " & cI2B(cB2I(i2)) & vbCr & vbCr
   strDisplay = strDisplay & "B2L of " & l1 & " is " & cB2L(l1) & vbCr
   strDisplay = strDisplay & "B2L of " & l2 & " is " & cB2L(l2) & vbCr & vbCr
   strDisplay = strDisplay & "L2B of " & cB2L(l1) & " is " & cL2B(cB2L(l1)) & vbCr
   strDisplay = strDisplay & "L2B of " & cB2L(l2) & " is " & cL2B(cB2L(l2)) & vbCr & vbCr
   'time the function
   cStartBasisTimer
   For i = 1 To Item
      intResult = cB2I("10101010")
   Next i
   strDisplay = strDisplay & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = strDisplay
End Sub
Private Sub TestToZ9()
   Dim intResult        As Integer
   Dim strResult        As String
   Dim strDisplay       As String
   Dim i                As Integer
   Dim Str1             As String
   Dim Str2             As String
   intResult = 0
   strResult = ""
   strDisplay = ""
   Str1 = Text1.Text
   Str2 = cToZ9(Str1)
   strDisplay = strDisplay & "To Z9 of '" & Str1 & "' is" & vbCr & vbCr
   strDisplay = strDisplay & "'" & Str2 & "'" & vbCr & vbCr
   strDisplay = strDisplay & "From Z9 of '" & Str2 & "' is" & vbCr & vbCr
   strDisplay = strDisplay & "'" & cFromZ9(Str2) & "'" & vbCr & vbCr
   Str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   Str2 = cToZ9(Str1)
   strDisplay = strDisplay & "To Z9 of '" & Str1 & "' is" & vbCr & vbCr
   strDisplay = strDisplay & "'" & Str2 & "'" & vbCr & vbCr
   strDisplay = strDisplay & "From Z9 of '" & Str2 & "' is" & vbCr & vbCr
   strDisplay = strDisplay & "'" & cFromZ9(Str2) & "'" & vbCr & vbCr
   Str1 = "01234567890"
   Str2 = cToZ9(Str1)
   strDisplay = strDisplay & "To Z9 of '" & Str1 & "' is" & vbCr & vbCr
   strDisplay = strDisplay & "'" & Str2 & "'" & vbCr & vbCr
   strDisplay = strDisplay & "From Z9 of '" & Str2 & "' is" & vbCr & vbCr
   strDisplay = strDisplay & "'" & cFromZ9(Str2) & "'" & vbCr & vbCr
   'time the function
   Str1 = Text1.Text
   cStartBasisTimer
   For i = 1 To Item
      strResult = cToZ9(Str1)
   Next i
   strDisplay = strDisplay & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = strDisplay
End Sub
Private Sub TestToHexa()
   Dim intResult        As Integer
   Dim strResult        As String
   Dim strDisplay       As String
   Dim i                As Integer
   Dim Str1             As String
   Dim Str2             As String
   intResult = 0
   strResult = ""
   strDisplay = ""
   Str1 = Text1.Text
   Str2 = cToHexa(Str1)
   strDisplay = strDisplay & "To Hexa of '" & Str1 & "' is" & vbCr & vbCr
   strDisplay = strDisplay & "'" & Str2 & "'" & vbCr & vbCr
   strDisplay = strDisplay & "From Hexa of '" & Str2 & "' is" & vbCr & vbCr
   strDisplay = strDisplay & "'" & cFromHexa(Str2) & "'" & vbCr & vbCr
   Str1 = "ABCDEFGH"
   Str2 = cToHexa(Str1)
   strDisplay = strDisplay & "To Hexa of '" & Str1 & "' is" & vbCr & vbCr
   strDisplay = strDisplay & "'" & Str2 & "'" & vbCr & vbCr
   strDisplay = strDisplay & "From Hexa of '" & Str2 & "' is" & vbCr & vbCr
   strDisplay = strDisplay & "'" & cFromHexa(Str2) & "'" & vbCr & vbCr
   Str1 = "01234567890"
   Str2 = cToHexa(Str1)
   strDisplay = strDisplay & "To Hexa of '" & Str1 & "' is" & vbCr & vbCr
   strDisplay = strDisplay & "'" & Str2 & "'" & vbCr & vbCr
   strDisplay = strDisplay & "From Hexa of '" & Str2 & "' is" & vbCr & vbCr
   strDisplay = strDisplay & "'" & cFromHexa(Str2) & "'" & vbCr & vbCr
   'time the function
   Str1 = Text1.Text
   cStartBasisTimer
   For i = 1 To Item
      strResult = cToHexa(Str1)
   Next i
   strDisplay = strDisplay & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = strDisplay
End Sub
Sub TestRUBYencrypt(Mode As Integer)
   Dim lngResult        As Long
   Dim strResult        As String
   Dim strDisplay       As String
   Dim i                As Integer
   Dim Str1             As String
   Dim Str2             As String
   Dim Key              As String
   Dim DescMode         As String
   strResult = ""
   strDisplay = ""
   Select Case Mode
      Case RUBY_MODE_MINIMUM: DescMode = "RUBY - minimum"
      Case RUBY_MODE_DESK_LOCK: DescMode = "RUBY - desk lock"
      Case RUBY_MODE_DEAD_BOLT: DescMode = "RUBY - dead bolt"
      Case RUBY_MODE_PORTABLE_SAFE: DescMode = "RUBY - portable safe"
      Case RUBY_MODE_ANCHORED_SAFE: DescMode = "RUBY - anchored safe"
      Case RUBY_MODE_BANK_VAULT: DescMode = "RUBY - bank vault"
      Case RUBY_MODE_FORT_KNOX: DescMode = "RUBY - FORT KNOX"
   End Select
   strDisplay = strDisplay & DescMode & vbCr & vbCr
   Key = "1234567890123456"
   Str1 = "TIME TO WIN (16-Bit)"
   Str2 = cRUBYencrypt(Str1, Key, Mode)
   strDisplay = strDisplay & "encrypt [" & Str1 & "] with '?' is [" & cFilterChars(Str2, Chr$(0)) & "]" & vbCr
   strDisplay = strDisplay & "decrypt [" & cFilterChars(Str2, Chr$(0)) & "] with '?' is [" & cRUBYdecrypt(Str2, Key, Mode) & "]" & vbCr
   strDisplay = strDisplay & vbCr
   Str1 = "T2WIN-16 a DLL for VB 4.0"
   Str2 = cRUBYencrypt(Str1, Key, Mode)
   strDisplay = strDisplay & "encrypt [" & Str1 & "] with '?' is [" & cFilterChars(Str2, Chr$(0)) & "]" & vbCr
   strDisplay = strDisplay & "decrypt [" & cFilterChars(Str2, Chr$(0)) & "] with '?' is [" & cRUBYdecrypt(Str2, Key, Mode) & "]" & vbCr
   strDisplay = strDisplay & vbCr
   Str1 = "Under the sky, the sun lights"
   Str2 = cRUBYencrypt(Str1, Key, Mode)
   strDisplay = strDisplay & "encrypt [" & Str1 & "] with '?' is [" & cFilterChars(Str2, Chr$(0)) & "]" & vbCr
   strDisplay = strDisplay & "decrypt [" & cFilterChars(Str2, Chr$(0)) & "] with '?' is [" & cRUBYdecrypt(Str2, Key, Mode) & "]" & vbCr
   strDisplay = strDisplay & vbCr
   Str1 = "the fox jump over over the lazy dogs"
   Str2 = cRUBYencrypt(Str1, Key, Mode)
   strDisplay = strDisplay & "encrypt [" & Str1 & "] with '?' is [" & cFilterChars(Str2, Chr$(0)) & "]" & vbCr
   strDisplay = strDisplay & "decrypt [" & cFilterChars(Str2, Chr$(0)) & "] with '?' is [" & cRUBYdecrypt(Str2, Key, Mode) & "]" & vbCr
   strDisplay = strDisplay & vbCr
   'time the function
   cStartBasisTimer
   For i = 1 To Item
      strResult = cRUBYencrypt(Str1, Key, Mode)
   Next i
   strDisplay = strDisplay & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = strDisplay
End Sub
Sub TestRUBYencryptFile(Mode As Integer)
   Dim lngResult        As Long
   Dim strResult        As String
   Dim strDisplay       As String
   Dim i                As Integer
   Dim File1            As String
   Dim File2            As String
   Dim File3            As String
   Dim Key              As String
   Dim DescMode         As String
   strResult = ""
   strDisplay = ""
   Select Case Mode
      Case RUBY_MODE_MINIMUM: DescMode = "RUBY - minimum"
      Case RUBY_MODE_DESK_LOCK: DescMode = "RUBY - desk lock"
      Case RUBY_MODE_DEAD_BOLT: DescMode = "RUBY - dead bolt"
      Case RUBY_MODE_PORTABLE_SAFE: DescMode = "RUBY - portable safe"
      Case RUBY_MODE_ANCHORED_SAFE: DescMode = "RUBY - anchored safe"
      Case RUBY_MODE_BANK_VAULT: DescMode = "RUBY - bank vault"
      Case RUBY_MODE_FORT_KNOX: DescMode = "RUBY - FORT KNOX"
   End Select
   strDisplay = strDisplay & DescMode & vbCr & vbCr
   File1 = "c:\autoexec.bat"
   File2 = "c:\autoexec.rub"
   File3 = "c:\autoexec.bur"
   Key = "1234567890123456"
   strDisplay = strDisplay & "encryptFile '" & File1 & "' with '?' to '" & File2 & "' is " & cRUBYencryptFile(File1, File2, Key, Mode) & vbCr
   strDisplay = strDisplay & "decryptFile '" & File2 & "' with '?' to '" & File3 & "' is " & cRUBYdecryptFile(File2, File3, Key, Mode) & vbCr
   strDisplay = strDisplay & "Compare (ns) '" & File1 & "' with '" & File3 & "' is " & IIf(cCmpFileContents(File1, File3, False) = -1, "same", "not same") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      lngResult = cRUBYencryptFile(File1, File2, Key, Mode)
   Next i
   strDisplay = strDisplay & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = strDisplay
End Sub
Sub TestGZIP()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\autoexec.tb1"
   Tmp3 = "c:\autoexec.tb2"
   Tmp1 = Tmp1 & "GZIP File Compress '" & Tmp & "' to '" & Tmp2 & "' is " & cGZIPFileCompress(Tmp, Tmp2) & vbCr
   Tmp1 = Tmp1 & "GZIP File Expand '" & Tmp2 & "' to '" & Tmp3 & "' is " & cGZIPFileExpand(Tmp2, Tmp3) & vbCr
   Tmp1 = Tmp1 & "Compare file contents (not sensitive) '" & Tmp & "' with '" & Tmp3 & "' is " & IIf(cCmpFileContents(Tmp, Tmp3, False) = -1, "same", "not same") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cGZIPFileCompress(Tmp, Tmp2)
   Next i
   j = cGZIPFileExpand(Tmp2, Tmp3)
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub Combo2_Click()
   Item = Val(Combo2.Text)
   ItemFile = Val(Combo2.Text)
   ItemMean = Val(Combo2.Text)
End Sub
Private Sub Command1_Click()
   Static Flag    As Integer
   If (Flag = True) Then Exit Sub
   frmT2W.Tag = cGetIn(cEXEnameActiveWindow(), ".", 1)
   cDisableFI Picture1
   Flag = True
   MousePointer = 11
   Frame1.Visible = False
   List1.Clear
   List2.Clear
   List1.FontBold = True
   List2.FontBold = True
   Label3.Caption = ""
   DoEvents
   Select Case Combo1.ListIndex
      Case 0
         Frame1.Visible = True
         Call TestAddI
      Case 1
         Frame1.Visible = True
         Call TestDeviationI
      Case 2
         Frame1.Visible = True
         Call TestFillI
      Case 3
         Frame1.Visible = True
         Call TestMaxI
      Case 4
         Frame1.Visible = True
         Call TestMeanI
      Case 5
         Frame1.Visible = True
         Call TestMinI
      Case 6
         Frame1.Visible = True
         Call TestSetI
      Case 7
         Frame1.Visible = True
         Call TestSumI
      Case 8
         Frame1.Visible = True
         Call TestSortI
      Case 9
         Frame1.Visible = True
         Call TestReverseSortI
      Case 10
         Call TestAddTime
      Case 11
         Call TestTimeBetween
      Case 12
         Call TestCheckTime
      Case 13
         Call TestHourTo
      Case 14
         Call TestWindowsIni
      Case 15
         Call TestWinINI1
      Case 16
         Call TestWinINI2
      Case 17
         Call TestWinINI3
      Case 18
         Call TestAllSubDir
      Case 19
         Call TestGetDriveCurrentDir
      Case 20
         Call TestGetDefaultCurrentDir
      Case 21
         Call TestChDir
      Case 22
         Call TestCountFiles
      Case 23
         Call TestCountDirectories
      Case 24
         Call TestKillFiles
      Case 25
         Call TestGetFullnameInEnv
      Case 26
         Call TestGetDiskSpace
      Case 27
         Call TestGetDiskUsed
      Case 28
         Call TestGetDiskFree
      Case 29
         Call TestKillDir
      Case 30
         Call TestRenameFile
      Case 31
         Call TestFileResetAllAttrib
      Case 32
         Call TestFileSetAllAttrib
      Case 33
         Call TestIsFileX
      Case 34
         Call TestSubDirectory
      Case 35
         Call TestUniqueFileName
      Case 36
         Call TestIsX
      Case 37
         Call TestOneCharFromLeft
      Case 38
         Call TestOneCharFromRight
      Case 39
         Call TestBlockCharFromLeft
      Case 40
         Call TestBlockCharFromRight
      Case 41
         Call TestCompact
      Case 42
         Call TestUncompact
      Case 43
         Call TestInsertChars
      Case 44
         Call TestRemoveBlockChar
      Case 45
         Call TestRemoveOneChar
      Case 46
         Call TestCompressTab
      Case 47
         Call TestExpandTab
      Case 48
         Call TestGiveBitPalindrome
      Case 49
         Call TestIsBitPalindrome
      Case 50
         Call TestInsertBlocksBy
      Case 51
         Call TestInsertBlocks
      Case 52
         Call TestResizeStringAndFill
      Case 53
         Call TestResizeString
      Case 54
         Call TestFilterBlocks
      Case 55
         Call TestFilterChars
      Case 56
         Call TestCheckChars
      Case 57
         Call TestChangeChars
      Case 58
         Call TestChangeCharsUntil
      Case 59
         Call TestReverse
      Case 60
         Call TestGetIn
      Case 61
         Call TestGetBlock
      Case 62
         Call TestCreateAndFill
      Case 63
         Call TestStringCRC32
      Case 64
         Call TestCompress
      Case 65
         Call TestEncrypt
      Case 66
         Call TestDecrypt
      Case 67
         Call TestFileCRC32
      Case 68
         Call TestLrc
      Case 69
         Call TestIsPalindrome
      Case 70
         Call TestCheckNumericity
      Case 71
         Call TestFill
      Case 72
         Call TestSetAllBits
      Case 73
         Call TestSetBit
      Case 74
         Call TestGetBit
      Case 75
         Call TestFindBitSet
      Case 76
         Call TestFindBitReset
      Case 77
         Call TestToggleBit
      Case 78
         Call TestToggleAllBits
      Case 79
         Call TestReverseAllBits
      Case 80
         Call TestReverseAllBitsByChar
      Case 81
         Call TestCreateBits
      Case 82
         Call TestAtoR
      Case 83
         Call TestRtoA
      Case 84
         Call TestCustomControls
      Case 85
         Call TestSwap
      Case 86
         Call TestMin
      Case 87
         Call TestMenuChange
      Case 88
         Call TestFilesSize
      Case 89
         Call TestClusterSize
      Case 90
         Call TestAscTime
      Case 91
         Call TestLanguage
      Case 92
         Call TestReadLanguage
      Case 93
         Call TestFileCmp
      Case 94
         Call TestFileCopy
      Case 95
         Call TestFileFilter
      Case 96
         Call TestFileFilterNot
      Case 97
         Call TestFileEncrypt
      Case 98
         Call TestFileCompressTab
      Case 99
         Call TestSplitPath
      Case 100
         Call TestFullPath
      Case 101
         Call TestMakePath
      Case 102
         Call TestMsgBox
      Case 103
         Call TestInpBox
      Case 104
         Call TestMixChars
      Case 105
         Call TestFileVersionInfo
      Case 106
         Call TestFileVersion
      Case 107
         Call TestFileLineCount
      Case 108
         Call TestFileToX
      Case 109
         Call TestBig
      Case 110
         Call TestBigNum
      Case 111
         Call TestSysMenuChange(LNG_FRENCH)
      Case 112
         Call TestSysMenuChange(LNG_DUTCH)
      Case 113
         Call TestSysMenuChange(LNG_GERMAN)
      Case 114
         Call TestSysMenuChange(LNG_ENGLISH)
      Case 115
         Call TestSysMenuChange(LNG_ITALIAN)
      Case 116
         Call TestSysMenuChange(LNG_SPANISH)
      Case 117
         Call TestFileMerge
      Case 118
         Call TestFileSR
      Case 119
         Call TestFileS
      Case 120
         Call TestPatternMatch
      Case 121
         Call TestPatternExtMatch
      Case 122
         Call TestMorse
      Case 123
         Call TestDriveType
      Case 124
         Call TestBaseConversion
      Case 125
         Call TestFileStatictics
      Case 126
         Call TestDAStr(True)
      Case 127
         Call TestDAL(True)
      Case 128
         Call TestDAType(True)
      Case 129
         Call TestDAStr(False)
      Case 130
         Call TestDAL(False)
      Case 131
         Call TestDAType(False)
      Case 132
         Call TestDAStr(1)
      Case 133
         Call TestDAL(1)
      Case 134
         Call TestDAType(1)
      Case 135
         Call TestDAStr(2)
      Case 136
         Call TestDAL(2)
      Case 137
         Call TestDAType(2)
      Case 138
         Call TestDAStr(3)
      Case 139
         Call TestDAL(3)
      Case 140
         Call TestDAType(3)
      Case 141
         Call TestDAStr(4)
      Case 142
         Call TestDAL(4)
      Case 143
         Call TestDAType(4)
      Case 144
         Call TestDAStr(5)
      Case 145
         Call TestDAL(5)
      Case 146
         Call TestDAType(5)
      Case 147
         Call TestDAStr(6)
      Case 148
         Call TestDAL(6)
      Case 149
         Call TestDAType(6)
      Case 150
         Call TestCloseAllEditForm
      Case 151
         Call TestHideAllEditForm
      Case 152
         Call TestHideDebugForm
      Case 153
         Call TestOrToken
      Case 154
         Call TestAndToken
      Case 155
         Call TestWalkThruWindow
      Case 156
         Call TestSerial
      Case 157
         Call TestTimer
      Case 158
         Call TestAlign
      Case 159
         Call TestToken
      Case 160
         Call TestArrayOnDisk
      Case 161
         Call TestArrayStringOnDisk
      Case 162
         Call TestCnvAE
      Case 163
         Call TestCombination
      Case 164
         Frame1.Visible = True
         Call TestFileSort(SORT_ASCENDING + SORT_CASE_SENSITIVE, False)
      Case 165
         Frame1.Visible = True
         Call TestFileSort(SORT_DESCENDING + SORT_CASE_SENSITIVE, False)
      Case 166
         Frame1.Visible = True
         Call TestFileSort(SORT_ASCENDING + SORT_CASE_INSENSITIVE, False)
      Case 167
         Frame1.Visible = True
         Call TestFileSort(SORT_DESCENDING + SORT_CASE_INSENSITIVE, False)
      Case 168
         Frame1.Visible = True
         Call TestFileSort(SORT_ASCENDING + SORT_CASE_SENSITIVE, True)
      Case 169
         Frame1.Visible = True
         Call TestFileSort(SORT_DESCENDING + SORT_CASE_SENSITIVE, True)
      Case 170
         Frame1.Visible = True
         Call TestFileSort(SORT_ASCENDING + SORT_CASE_INSENSITIVE, True)
      Case 171
         Frame1.Visible = True
         Call TestFileSort(SORT_DESCENDING + SORT_CASE_INSENSITIVE, True)
      Case 172
         Call TestRegistrationKey
      Case 173
         Call TestMD5
      Case 174
         Call TestProperName
      Case 175
         Call TestMatrixAdd
      Case 176
         Call TestMatrixSub
      Case 177
         Call TestMatrixCopy
      Case 178
         Call TestMatrixMul
      Case 179
         Call TestMatrixTranspose
      Case 180
         Call TestMatrixCompare
      Case 181
         Call Test2D
      Case 182
         Call Test3D
      Case 183
         Call TestProperName2
      Case 184
         Call TestDOSMediaID
      Case 185
         Call TestFileCompress
      Case 186
         Call TestStringCompress
      Case 187
         Frame1.Visible = True
         Call TestFillIncrI
      Case 188
         Call TestMatrixDet
      Case 189
         Call TestMatrixInv
      Case 190
         Call TestMatrixMinCo
      Case 191
         Call TestMatrixSymToeplitz
      Case 192
         Call TestFloppyInfo
      Case 193
         Call TestDOSGetVolLabel
      Case 194
         Call TestAddTwoTimes
      Case 195
         Call TestMDA(True)
      Case 196
         Call TestMDA(False)
      Case 197
         Call TestMDA(1)
      Case 198
         Call TestMDA(2)
      Case 199
         Call TestMDA(3)
      Case 200
         Call TestMDA(4)
      Case 201
         Call TestMDA(5)
      Case 202
         Call TestMDA(6)
      Case 203
         Call TestDate
      Case 204
         Call TestVersion
      Case 205
         Call TestGetInR
      Case 206
         Call TestBigString01
      Case 207
         Call TestHMAStr(True)
      Case 208
         Call TestHMAL(True)
      Case 209
         Call TestHMAType(True)
      Case 210
         Call TestHMAStr(1)
      Case 211
         Call TestHMAL(1)
      Case 212
         Call TestHMAType(1)
      Case 213
         Call TestHMAStr(2)
      Case 214
         Call TestHMAL(2)
      Case 215
         Call TestHMAType(2)
      Case 216
         Call TestHMAStr(3)
      Case 217
         Call TestHMAL(3)
      Case 218
         Call TestHMAType(3)
      Case 219
         Call TestHMAStr(4)
      Case 220
         Call TestHMAL(4)
      Case 221
         Call TestHMAType(4)
      Case 222
         Call TestHMAStr(5)
      Case 223
         Call TestHMAL(5)
      Case 224
         Call TestHMAType(5)
      Case 225
         Call TestHMAStr(6)
      Case 226
         Call TestHMAL(6)
      Case 227
         Call TestHMAType(6)
      Case 228
         Frame1.Visible = True
         Call TestArrayLB
      Case 229
         Call TestTime
      Case 230
         Call TestControl3D
      Case 231
         Call TestFileChangeChars
      Case 232
         Call TestFilesInfoInDir
      Case 233
         Call TestRcsCountFileDir
      Case 234
         Frame1.Visible = True
         Call TestFilesInDirOnDisk
      Case 235
         Frame1.Visible = True
         Call TestFilesInDirToArray
      Case 236
         Call TestRcsFilesSize
      Case 237
         Call TestMnuLanguage
      Case 238
         Call TestSpellMoney
      Case 239
         Call TestFraction
      Case 240
         Call TestRndX
      Case 241
         Call TestStringSAR
      Case 242
         Call TestTruncatePath
      Case 243
         Call TestSysMenuChange(LNG_CATALAN)
         Call TestLanguage
         SendKeys "% "
      Case 244
         Call TestSysMenuChange(LNG_POLISH)
         Call TestLanguage
         SendKeys "% "
      Case 245
         Frame1.Visible = True
         Call TestCountI
      Case 246
         Frame1.Visible = True
         Call TestSearchI
      Case 247
         Call TestHexaToX
      Case 248
         Call TestBinaryToX
      Case 249
         Call TestGZIP
      Case 250
         Call TestGZIPStringCompress
      Case 251
         Call TestRUBYencrypt(RUBY_MODE_MINIMUM)
      Case 252
         Call TestRUBYencryptFile(RUBY_MODE_MINIMUM)
      Case 253
         Call TestRUBYencrypt(RUBY_MODE_PORTABLE_SAFE)
      Case 254
         Call TestRUBYencryptFile(RUBY_MODE_PORTABLE_SAFE)
      Case 255
         Call TestRUBYencrypt(RUBY_MODE_FORT_KNOX)
      Case 256
         Call TestRUBYencryptFile(RUBY_MODE_FORT_KNOX)
      Case 257
         Call TestSysMenuChange(LNG_NORVEGIAN)
         Call TestLanguage
         SendKeys "% "
      Case 258
         Call TestGetBitValue
      Case 259
         Call TestSetBitValue
      Case 260
         Call TestB2I
      Case 261
         Call TestToHexa
      Case 262
         Call TestToZ9
      Case 263
         Call TestCutFile
      Case 264
         Call TestSplitFile
      Case 265
         Frame1.Visible = True
         Call TestMaxNotXI
      Case 266
         Frame1.Visible = True
         Call TestMinNotXI
      Case 267
         Call TestFileMergeExt
   End Select
   MousePointer = 0
   Flag = False
   cEnableFI Picture1
End Sub
Private Sub CreateFile()
   Dim j       As Integer
   j = cFileResetAllAttrib("TEST.DAT")
   Close #1
   Open "TEST.DAT" For Output As #1
   Print #1, "This is a file test for t2win-16.dll"
   Print #1, "This is a file test for t2win-16.dll"
   Print #1, "This is a file test for t2win-16.dll"
   Print #1, "This is a file test for t2win-16.dll"
   Print #1, "This is a file test for t2win-16.dll"
   Print #1, "This is a file test for t2win-16.dll"
   Print #1, "This is a file test for t2win-16.dll"
   Close #1
   j = cFileResetAllAttrib("TEST.DAT")
End Sub
Private Sub DefCnv()
   Dim i       As Integer
   Dim j       As Integer
   Dim Tmp     As String
   Close #1
   Open "c:\tmp\tmp1.Tmp" For Input Shared As #1
   Close #2
   Open "c:\tmp\tmp.Tmp" For Output Shared As #2
   i = 0
   While Not EOF(1)
      Line Input #1, Tmp
      i = i + 1
      Tmp = cCompress(Tmp)
      Print #2, Tab(10); cGetIn(Tmp, "@", 1);
      Print #2, Tab(60); "@" & i
   Wend
   Close #1
   Close #2
End Sub
Private Sub Form_Load()
   Combo2.AddItem "1"
   Combo2.AddItem "5"
   Combo2.AddItem "10"
   Combo2.AddItem "50"
   Combo2.AddItem "100"
   Combo2.AddItem "500"
   Combo2.AddItem "1000"
   Combo2.AddItem "5000"
   Combo1.AddItem "Array routines : Add"
   Combo1.AddItem "Array routines : Deviation"
   Combo1.AddItem "Array routines : Fill"
   Combo1.AddItem "Array routines : Max"
   Combo1.AddItem "Array routines : Mean"
   Combo1.AddItem "Array routines : Min"
   Combo1.AddItem "Array routines : Set"
   Combo1.AddItem "Array routines : Sum"
   Combo1.AddItem "Array routines : Sort"
   Combo1.AddItem "Array routines : ReverseSort"
   Combo1.AddItem "Time routines : AddTime"
   Combo1.AddItem "Time routines : TimeBetween"
   Combo1.AddItem "Time routines : CheckTime"
   Combo1.AddItem "Time routines : HourTo"
   Combo1.AddItem "WIN.INI routines : some separators"
   Combo1.AddItem "WIN.INI routines : devices"
   Combo1.AddItem "WIN.INI routines : printerports"
   Combo1.AddItem "WIN.INI routines : winsection (windows section)"
   Combo1.AddItem "Files routines : AllSubDirectories"
   Combo1.AddItem "Files routines : GetDriveCurrentDir"
   Combo1.AddItem "Files routines : GetDefaultCurrentDir"
   Combo1.AddItem "Files routines : ChDir"
   Combo1.AddItem "Files routines : CountFiles"
   Combo1.AddItem "Files routines : CountDirectories"
   Combo1.AddItem "Files routines : KillFiles"
   Combo1.AddItem "Files routines : GetFullnameInEnv"
   Combo1.AddItem "Files routines : GetDiskSpace"
   Combo1.AddItem "Files routines : GetDiskUsed"
   Combo1.AddItem "Files routines : GetDiskFree"
   Combo1.AddItem "Files routines : KillDir"
   Combo1.AddItem "Files routines : RenameFile"
   Combo1.AddItem "Files routines : FileResetAllAttrib"
   Combo1.AddItem "Files routines : FileSetAllAttrib"
   Combo1.AddItem "Files routines : IsFileX"
   Combo1.AddItem "Files routines : SubDirectory"
   Combo1.AddItem "Files routines : UniqueFileName"
   Combo1.AddItem "String routines : IsX"
   Combo1.AddItem "String routines : OneCharFromLeft"
   Combo1.AddItem "String routines : OneCharFromRight"
   Combo1.AddItem "String routines : BlockCharFromLeft"
   Combo1.AddItem "String routines : BlockCharFromRight"
   Combo1.AddItem "String routines : Compact"
   Combo1.AddItem "String routines : Uncompact"
   Combo1.AddItem "String routines : InsertChars"
   Combo1.AddItem "String routines : RemoveBlockChar"
   Combo1.AddItem "String routines : RemoveOneChar"
   Combo1.AddItem "String routines : CompressTab"
   Combo1.AddItem "String routines : ExpandTab"
   Combo1.AddItem "String routines : GiveBitPalindrome"
   Combo1.AddItem "String routines : IsBitPalindrome"
   Combo1.AddItem "String routines : InsertBlocksBy"
   Combo1.AddItem "String routines : InsertBlocks"
   Combo1.AddItem "String routines : ResizeStringAndFill"
   Combo1.AddItem "String routines : ResizeString"
   Combo1.AddItem "String routines : FilterBlocks"
   Combo1.AddItem "String routines : FilterChars"
   Combo1.AddItem "String routines : CheckChars"
   Combo1.AddItem "String routines : ChangeChars"
   Combo1.AddItem "String routines : ChangeCharsUntil"
   Combo1.AddItem "String routines : Reverse"
   Combo1.AddItem "String routines : GetIn"
   Combo1.AddItem "String routines : GetBlock"
   Combo1.AddItem "String routines : CreateAndFill"
   Combo1.AddItem "String routines : StringCRC32"
   Combo1.AddItem "String routines : Compress"
   Combo1.AddItem "String routines : Encrypt"
   Combo1.AddItem "String routines : Decrypt"
   Combo1.AddItem "Files  routines : FileCRC32"
   Combo1.AddItem "String routines : Lrc"
   Combo1.AddItem "String routines : IsPalindrome"
   Combo1.AddItem "String routines : CheckNumericity"
   Combo1.AddItem "String routines : Fill"
   Combo1.AddItem "String routines : SetAllBits"
   Combo1.AddItem "String routines : SetBit"
   Combo1.AddItem "String routines : GetBit"
   Combo1.AddItem "String routines : FindBitSet"
   Combo1.AddItem "String routines : FindBitReset"
   Combo1.AddItem "String routines : ToggleBit"
   Combo1.AddItem "String routines : ToggleAllBits"
   Combo1.AddItem "String routines : ReverseAllBits"
   Combo1.AddItem "String routines : ReverseAllBitsByChar"
   Combo1.AddItem "String routines : CreateBits"
   Combo1.AddItem "String routines : ArabicToRoman"
   Combo1.AddItem "String routines : RomanToArabic"
   Combo1.AddItem "Custom controls"
   Combo1.AddItem "Swap routines"
   Combo1.AddItem "Min,Max routines"
   Combo1.AddItem "System menu change : French"
   Combo1.AddItem "Files routines : FilesSize, FilesSizeOnDisk, FilesSlack"
   Combo1.AddItem "Files routines : GetClusterSize"
   Combo1.AddItem "Language routines : GetAscTime"
   Combo1.AddItem "Language routines : Days and months name"
   Combo1.AddItem "Language routines : Read Control Language"
   Combo1.AddItem "File routines : Compare"
   Combo1.AddItem "File routines : File Copy"
   Combo1.AddItem "File routines : File Filter"
   Combo1.AddItem "File routines : File Filter Not"
   Combo1.AddItem "File routines : File Encrypt/Decrypt"
   Combo1.AddItem "File routines : File Compress/Expand Tab"
   Combo1.AddItem "File routines : SplitPath"
   Combo1.AddItem "File routines : FullPath"
   Combo1.AddItem "File routines : MakePath"
   Combo1.AddItem "Language routines : Multi-Language & TimeOut Message Box"
   Combo1.AddItem "Language routines : Multi-Language Input Box"
   Combo1.AddItem "String routines : MixChars"
   Combo1.AddItem "Windows Specific Routines : FileVersionInfo"
   Combo1.AddItem "Windows Specific Routines : FileVersion"
   Combo1.AddItem "File routines : FileLineCount"
   Combo1.AddItem "File routines : FileToLower/FileToUpper"
   Combo1.AddItem "Misc. routines : Big Double"
   Combo1.AddItem "Misc. routines : Big Numbers"
   Combo1.AddItem "System menu change (one call) : French"
   Combo1.AddItem "System menu change (one call) : Dutch"
   Combo1.AddItem "System menu change (one call) : German"
   Combo1.AddItem "System menu change (one call) : English"
   Combo1.AddItem "System menu change (one call) : Italian"
   Combo1.AddItem "System menu change (one call) : Spanish"
   Combo1.AddItem "File routines : FileMerge"
   Combo1.AddItem "File routines : FileSearchAndReplace"
   Combo1.AddItem "File routines : FileSearch, FileSearchCount"
   Combo1.AddItem "String routines : PatternMatch"
   Combo1.AddItem "String routines : PatternExtMatch"
   Combo1.AddItem "Misc. routines : Morse"
   Combo1.AddItem "DOS routines : GetDriveType"
   Combo1.AddItem "Misc. routines : Base conversion"
   Combo1.AddItem "File routines : FileStatistics"
   Combo1.AddItem "Disk Array routines : (create) String"
   Combo1.AddItem "Disk Array routines : (create) Long"
   Combo1.AddItem "Disk Array routines : (create) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Disk Array routines : (use) String"
   Combo1.AddItem "Disk Array routines : (use) Long"
   Combo1.AddItem "Disk Array routines : (use) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Disk Array routines : (clear) String"
   Combo1.AddItem "Disk Array routines : (clear) Long"
   Combo1.AddItem "Disk Array routines : (clear) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Disk Array routines : (clear sheet 2) String"
   Combo1.AddItem "Disk Array routines : (clear sheet 2) Long"
   Combo1.AddItem "Disk Array routines : (clear sheet 2) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Disk Array routines : (clear last row in sheet 1) String"
   Combo1.AddItem "Disk Array routines : (clear last row in sheet 1) Long"
   Combo1.AddItem "Disk Array routines : (clear last row in sheet 1) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Disk Array routines : (clear last col in sheet 1) String"
   Combo1.AddItem "Disk Array routines : (clear last col in sheet 1) Long"
   Combo1.AddItem "Disk Array routines : (clear last col in sheet 1) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Disk Array routines : (clear last row in all sheets) String"
   Combo1.AddItem "Disk Array routines : (clear last row in all sheets) Long"
   Combo1.AddItem "Disk Array routines : (clear last row in all sheets) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Disk Array routines : (clear last col in all sheets) String"
   Combo1.AddItem "Disk Array routines : (clear last col in all sheets) Long"
   Combo1.AddItem "Disk Array routines : (clear last col in all sheets) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "VB Management routines : CloseAllEditForm"
   Combo1.AddItem "VB Management routines : HideAllEditForm, UnHideAllEditForm"
   Combo1.AddItem "VB Management routines : HideDebugForm, UnHideDebugForm"
   Combo1.AddItem "String routines : OrToken, OrTokenIn"
   Combo1.AddItem "String routines : AndToken, AndTokenIn"
   Combo1.AddItem "Windows Specific Routines : WalkThruWindow"
   Combo1.AddItem "Serialization : IsSerial, SerialGet, SerialPut, SerialInc"
   Combo1.AddItem "Timer functions : Extended Timer"
   Combo1.AddItem "String routines : Align"
   Combo1.AddItem "String routines : Token"
   Combo1.AddItem "Array routines : ArrayOnDisk"
   Combo1.AddItem "Array routines : ArrayStringOnDisk"
   Combo1.AddItem "String routines : cCnvASCIItoEBCDIC, cCnvEBCDICtoASCII"
   Combo1.AddItem "Misc. routines : Combination C(n,m)"
   Combo1.AddItem "File routines : FileSort (ASC and CS) (record ended with cr/lf)"
   Combo1.AddItem "File routines : FileSort (DSC and CS) (record ended with cr/lf)"
   Combo1.AddItem "File routines : FileSort (ASC and NS) (record ended with cr/lf)"
   Combo1.AddItem "File routines : FileSort (DSC and NS) (record ended with cr/lf)"
   Combo1.AddItem "File routines : FileSort (ASC and CS) (record size 3)"
   Combo1.AddItem "File routines : FileSort (DSC and CS) (record size 3)"
   Combo1.AddItem "File routines : FileSort (ASC and NS) (record size 3)"
   Combo1.AddItem "File routines : FileSort (DSC and NS) (record size 3)"
   Combo1.AddItem "Misc. routines : RegistrationKey"
   Combo1.AddItem "Misc. routines : HashMD5"
   Combo1.AddItem "String routines : ProperName"
   Combo1.AddItem "Matrix routines : MatrixAdd"
   Combo1.AddItem "Matrix routines : MatrixSub"
   Combo1.AddItem "Matrix routines : MatrixCopy"
   Combo1.AddItem "Matrix routines : MatrixMul"
   Combo1.AddItem "Matrix routines : MatrixTranspose"
   Combo1.AddItem "Matrix routines : MatrixCompare"
   Combo1.AddItem "2-D geometry"
   Combo1.AddItem "3-D geometry"
   Combo1.AddItem "String routines : ProperName2"
   Combo1.AddItem "DOS routines : DOSMediaID"
   Combo1.AddItem "File routines : File Compress/Expand"
   Combo1.AddItem "String routines : String Compress/Expand"
   Combo1.AddItem "Array routines : FillIncrI"
   Combo1.AddItem "Matrix routines : MatrixDet"
   Combo1.AddItem "Matrix routines : MatrixInv"
   Combo1.AddItem "Matrix routines : MatrixMinor,MatrixCoFactor"
   Combo1.AddItem "Matrix routines : MatrixSymToeplitz"
   Combo1.AddItem "DOS routines : FloppyInfo"
   Combo1.AddItem "DOS routines : DOSGetVolumeLabel"
   Combo1.AddItem "Time routines : AddTwoTimes"
   Combo1.AddItem "Multiple Disk Array routines : (create)"
   Combo1.AddItem "Multiple Disk Array routines : (use)"
   Combo1.AddItem "Multiple Disk Array routines : (clear)"
   Combo1.AddItem "Multiple Disk Array routines : (clear sheet 2)"
   Combo1.AddItem "Multiple Disk Array routines : (clear last row in sheet 1)"
   Combo1.AddItem "Multiple Disk Array routines : (clear last col in sheet 1)"
   Combo1.AddItem "Multiple Disk Array routines : (clear last row in all sheets)"
   Combo1.AddItem "Multiple Disk Array routines : (clear last col in all sheets)"
   Combo1.AddItem "Date routines : DayOfWeek, DayOfYear, WeekOfYear, ..."
   Combo1.AddItem "Misc. routines : GetVersion"
   Combo1.AddItem "String routines : GetInR, GetInPart, GetInPartR"
   Combo1.AddItem "Huge String"
   Combo1.AddItem "Huge Memory Array : (create) String"
   Combo1.AddItem "Huge Memory Array : (create) Long"
   Combo1.AddItem "Huge Memory Array : (create) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Huge Memory Array : (clear) String"
   Combo1.AddItem "Huge Memory Array : (clear) Long"
   Combo1.AddItem "Huge Memory Array : (clear) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Huge Memory Array : (clear sheet 2) String"
   Combo1.AddItem "Huge Memory Array : (clear sheet 2) Long"
   Combo1.AddItem "Huge Memory Array : (clear sheet 2) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Huge Memory Array : (clear last row in sheet 1) String"
   Combo1.AddItem "Huge Memory Array : (clear last row in sheet 1) Long"
   Combo1.AddItem "Huge Memory Array : (clear last row in sheet 1) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Huge Memory Array : (clear last col in sheet 1) String"
   Combo1.AddItem "Huge Memory Array : (clear last col in sheet 1) Long"
   Combo1.AddItem "Huge Memory Array : (clear last col in sheet 1) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Huge Memory Array : (clear last row in all sheets) String"
   Combo1.AddItem "Huge Memory Array : (clear last row in all sheets) Long"
   Combo1.AddItem "Huge Memory Array : (clear last row in all sheets) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Huge Memory Array : (clear last col in all sheets) String"
   Combo1.AddItem "Huge Memory Array : (clear last col in all sheets) Long"
   Combo1.AddItem "Huge Memory Array : (clear last col in all sheets) Type'd (b.e. : tagTASKENTRY)"
   Combo1.AddItem "Array routines : ArrayToListBox"
   Combo1.AddItem "Time routines : TimeToScalar, ScalarToTime"
   Combo1.AddItem "3D routines : Ctl3D, 3D, GetCtlRect, GetCtlRectTwips"
   Combo1.AddItem "File routines : FileChangeChars"
   Combo1.AddItem "File routines : FilesInfoInDir"
   Combo1.AddItem "File routines : RcsCountFileDir"
   Combo1.AddItem "File routines : FilesInDirOnDisk"
   Combo1.AddItem "File routines : FilesInDirToArray"
   Combo1.AddItem "Files routines : rcsFilesSize, rcsFilesSizeOnDisk, rcsFilesSlack"
   Combo1.AddItem "Language routines : Read Menu Language"
   Combo1.AddItem "String routines : SpellMoney"
   Combo1.AddItem "Misc. routines : Fraction"
   Combo1.AddItem "Misc. routines : Rndx"
   Combo1.AddItem "String routines : StringSAR"
   Combo1.AddItem "File routines : TruncatePath"
   Combo1.AddItem "System menu change (one call) : Catalan"
   Combo1.AddItem "System menu change (one call) : Polish"
   Combo1.AddItem "Array routines : Count"
   Combo1.AddItem "Array routines : Search"
   Combo1.AddItem "String routines : H2I, H2L"
   Combo1.AddItem "String routines : B2I, B2L"
   Combo1.AddItem "File routines : GZIPFileCompress/GZIPFileExpand"
   Combo1.AddItem "String routines : GZIPStringCompress/GZIPStringExpand"
   Combo1.AddItem "String routines : RUBYencrypt - RUBYdecrypt(minimum)"
   Combo1.AddItem "File routines : RUBYencryptFile - RUBYdecryptFile(minimum)"
   Combo1.AddItem "String routines : RUBYencrypt - RUBYdecrypt (portable safe)"
   Combo1.AddItem "File routines : RUBYencryptFile - RUBYdecryptFile (portable safe)"
   Combo1.AddItem "String routines : RUBYencrypt - RUBYdecrypt (FORT KNOX)"
   Combo1.AddItem "File routines : RUBYencryptFile - RUBYdecryptFile (FORT KNOX)"
   Combo1.AddItem "System menu change (one call) : Norvegian"
   Combo1.AddItem "String routines : GetBitX (5 functions)"
   Combo1.AddItem "String routines : SetBitX (5 functions)"
   Combo1.AddItem "String routines : B2I/B2L/I2B/L2B"
   Combo1.AddItem "String routines : FromHexa/ToHexa"
   Combo1.AddItem "String routines : FromZ9/ToZ9"
   Combo1.AddItem "File routines : CutFile"
   Combo1.AddItem "File routines : SplitFile"
   Combo1.AddItem "Array routines : MaxNotXI"
   Combo1.AddItem "Array routines : MinNotXI"
   Combo1.AddItem "File routines : FileMergeExt"
   Combo1.ListIndex = Combo1.ListCount - 1
   Combo2.ListIndex = 2
   Item = Val(Combo2.Text)
   ItemFile = Val(Combo2.Text)
   ItemMean = Val(Combo2.Text)
   Text1.Text = "A/BC/DEF/GHIJ"
   Me.Caption = Me.Caption & " (v" & cGetVersion() & ")"
End Sub
Private Sub Form_Paint()
   'Dim i As Integer
   'Dim N As Integer
   'N = frmT2W.Controls.Count - 1
   'For i = 0 To N
   '   If ((frmT2W.Controls(i).Visible = True) And (frmT2W.Controls(i).Enabled = True)) Then
   '      Call c3D(frmT2W.Controls(i), 0, 0)
   '   End If
   'Next i
End Sub
Private Sub Form_Unload(Cancel As Integer)
   Call cShowWindow(frmT2W.hWnd, 1, 125)
End Sub
Private Sub Label2_DblClick()
   Dim i       As Integer
   Dim n       As Integer
   n = Combo1.ListCount - 1
   For i = 0 To n
      Combo1.ListIndex = i
      DoEvents
      Call Command1_Click
      DoEvents
   Next i
End Sub
Private Sub Test2D()
   Dim Tmp1       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Double
   Dim u          As tagVECTOR2
   Dim v          As tagVECTOR2
   Dim w          As tagVECTOR2
   u.x = 1
   u.y = 1
   v.x = 3
   v.y = 3
   Tmp1 = Tmp1 & "First vector (u) is (" & u.x & "," & u.y & ")" & vbCr & vbCr
   Tmp1 = Tmp1 & "Second vector (v) is (" & v.x & "," & v.y & ")" & vbCr & vbCr
   Call cV2Add(u, v, w)
   Tmp1 = Tmp1 & "Sum of (u)+(v) = (w) is (" & w.x & "," & w.y & ")" & vbCr & vbCr
   Call cV2Sub(u, v, w)
   Tmp1 = Tmp1 & "Sub of (u)-(v) = (w) is (" & w.x & "," & w.y & ")" & vbCr & vbCr
   Call cV2Mul(u, v, w)
   Tmp1 = Tmp1 & "Mul of (u).(v) = (w) is (" & w.x & "," & w.y & ")" & vbCr & vbCr
   k = cV2Dot(u, v)
   Tmp1 = Tmp1 & "Dot of (u),(v) is " & k & vbCr & vbCr
   k = cV2Length(v)
   Tmp1 = Tmp1 & "Length (v) is " & k & vbCr & vbCr
   k = cV2SegmentLength(u, v)
   Tmp1 = Tmp1 & "Segmented Length from (u) to (v) is " & k & vbCr & vbCr
   Call cV2Normalized(u)
   Tmp1 = Tmp1 & "Normalization of (u) is (" & u.x & "," & u.y & ")" & vbCr & vbCr

   cStartBasisTimer
   For i = 1 To ItemFile
      Call cV2Add(u, v, w)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub Test3D()
   Dim Tmp1       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Double
   Dim u          As tagVECTOR3
   Dim v          As tagVECTOR3
   Dim w          As tagVECTOR3
   u.x = 1
   u.y = 1
   u.z = 1
   v.x = 3
   v.y = 3
   v.z = 3
   Tmp1 = Tmp1 & "First vector (u) is (" & u.x & "," & u.y & "," & u.z & ")" & vbCr & vbCr
   Tmp1 = Tmp1 & "Second vector (v) is (" & v.x & "," & v.y & "," & v.z & ")" & vbCr & vbCr
   Call cV3Add(u, v, w)
   Tmp1 = Tmp1 & "Sum of (u)+(v) = (w) is (" & w.x & "," & w.y & "," & w.z & ")" & vbCr & vbCr
   Call cV3Sub(u, v, w)
   Tmp1 = Tmp1 & "Sub of (u)-(v) = (w) is (" & w.x & "," & w.y & "," & w.z & ")" & vbCr & vbCr
   Call cV3Mul(u, v, w)
   Tmp1 = Tmp1 & "Mul of (u).(v) = (w) is (" & w.x & "," & w.y & ")" & vbCr & vbCr
   k = cV3Dot(u, v)
   Tmp1 = Tmp1 & "Dot of (u),(v) is " & k & vbCr & vbCr
   k = cV3Length(v)
   Tmp1 = Tmp1 & "Length (v) is " & k & vbCr & vbCr
   k = cV3SegmentLength(u, v)
   Tmp1 = Tmp1 & "Segmented Length from (u) to (v) is " & k & vbCr & vbCr
   Call cV3Normalized(u)
   Tmp1 = Tmp1 & "Normalization of (u) is (" & u.x & "," & u.y & "," & u.z & ")" & vbCr & vbCr

   cStartBasisTimer
   For i = 1 To ItemFile
      Call cV3Add(u, v, w)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestAddI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Double
   ReDim array(ItemMean) As Integer
   Randomize Timer
   For i = LBound(array) To UBound(array)
      array(i) = 0
      List1.AddItem "" & array(i)
   Next i
   j = cAddI(array(), 10)
   For i = LBound(array) To UBound(array)
      List2.AddItem "" & array(i)
   Next i
   Tmp1 = Tmp1 & "Add 10 to element 1 of an integer array is : " & array(1) & vbCr & vbCr
   Tmp1 = Tmp1 & "Add 10 to element " & ItemMean & " of an integer array is : " & array(ItemMean) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cAddI(array(), 1)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestAddTime()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = "The time 10:00 + 02:01 is " & cIntoHour(cAddTime(600 + 121)) & vbCr & vbCr
   Tmp1 = Tmp1 & "The time 23:58 + 01:02 is " & cIntoHour(cAddTime(1438 + 62)) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cAddTime(1439 + 2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetBitValue()
   Dim intResult        As Integer
   Dim strResult        As String
   Dim strDisplay       As String
   Dim bData            As Byte
   Dim iData            As Integer
   Dim lData            As Long
   Dim sData            As Single
   Dim dData            As Double
   Dim i                As Integer
   intResult = 0
   strResult = ""
   strDisplay = ""
   Call cRndInit(-1)
   bData = (Abs(cRndI()) Mod 256)
   iData = Abs(cRndI())
   lData = Abs(cRndL())
   sData = Abs(cRndS())
   dData = Abs(cRndD())

   strDisplay = strDisplay + "Byte value : " & bData & " (" & cToBinary(cMKB(bData)) & ")" & vbCr
   strDisplay = strDisplay + "   bit 0 is " & IIf(cGetBitB(bData, 0), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 1 is " & IIf(cGetBitB(bData, 1), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 3 is " & IIf(cGetBitB(bData, 3), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 5 is " & IIf(cGetBitB(bData, 5), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 7 is " & IIf(cGetBitB(bData, 7), "set", "reset") & vbCr & vbCr
   strDisplay = strDisplay + "Integer value : " & iData & " (" & cToBinary(cMKI(iData)) & ")" & vbCr
   strDisplay = strDisplay + "   bit 0 is " & IIf(cGetBitI(iData, 0), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 3 is " & IIf(cGetBitI(iData, 3), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 7 is " & IIf(cGetBitI(iData, 7), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 11 is " & IIf(cGetBitI(iData, 11), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 15 is " & IIf(cGetBitI(iData, 15), "set", "reset") & vbCr & vbCr
   strDisplay = strDisplay + "Long value : " & lData & " (" & cToBinary(cMKL(lData)) & ")" & vbCr
   strDisplay = strDisplay + "   bit 0 is " & IIf(cGetBitL(lData, 0), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 5 is " & IIf(cGetBitL(lData, 5), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 10 is " & IIf(cGetBitL(lData, 10), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 15 is " & IIf(cGetBitL(lData, 15), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 20 is " & IIf(cGetBitL(lData, 20), "set", "reset") & vbCr & vbCr
   strDisplay = strDisplay + "Single value : " & sData & " (" & cToBinary(cMKS(sData)) & ")" & vbCr
   strDisplay = strDisplay + "   bit 0 is " & IIf(cGetBitS(sData, 0), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 5 is " & IIf(cGetBitS(sData, 5), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 10 is " & IIf(cGetBitS(sData, 10), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 15 is " & IIf(cGetBitS(sData, 15), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 20 is " & IIf(cGetBitS(sData, 20), "set", "reset") & vbCr & vbCr
   strDisplay = strDisplay + "Double value : " & dData & " (" & cToBinary(cMKD(dData)) & ")" & vbCr
   strDisplay = strDisplay + "   bit 0 is " & IIf(cGetBitD(dData, 0), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 10 is " & IIf(cGetBitD(dData, 10), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 20 is " & IIf(cGetBitD(dData, 20), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 30 is " & IIf(cGetBitD(dData, 30), "set", "reset") & vbCr
   strDisplay = strDisplay + "   bit 40 is " & IIf(cGetBitD(dData, 40), "set", "reset") & vbCr & vbCr
   'time the function
   cStartBasisTimer
   For i = 1 To ItemFile
      intResult = cGetBitI(iData, i)
   Next i
   strDisplay = strDisplay & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = strDisplay
End Sub
Private Sub TestSetBitValue()
   Dim intResult        As Integer
   Dim strResult        As String
   Dim strDisplay       As String
   Dim bData            As Byte
   Dim iData            As Integer
   Dim lData            As Long
   Dim sData            As Single
   Dim dData            As Double
   Dim i                As Integer
   intResult = 0
   strResult = ""
   strDisplay = ""
   bData = (Abs(cRndI()) Mod 256)
   iData = Abs(cRndI())
   lData = Abs(cRndL())
   sData = Abs(cRndS())
   dData = Abs(cRndD())

   strDisplay = strDisplay + "Byte value : " & bData & " (" & cToBinary(cMKB(bData)) & ")" & vbCr
   Call cSetBitB(bData, 0, True)
   strDisplay = strDisplay + "   set bit 0 is " & bData & " (" & cToBinary(cMKB(bData)) & ")" & vbCr
   Call cSetBitB(bData, 3, False)
   strDisplay = strDisplay + "   reset bit 3 is " & bData & " (" & cToBinary(cMKB(bData)) & ")" & vbCr
   Call cSetBitB(bData, 5, True)
   strDisplay = strDisplay + "   set bit 5 is " & bData & " (" & cToBinary(cMKB(bData)) & ")" & vbCr & vbCr
   strDisplay = strDisplay + "Integer value : " & iData & " (" & cToBinary(cMKI(iData)) & ")" & vbCr
   Call cSetBitI(iData, 3, True)
   strDisplay = strDisplay + "   set bit 3 is " & iData & " (" & cToBinary(cMKI(iData)) & ")" & vbCr
   Call cSetBitI(iData, 6, False)
   strDisplay = strDisplay + "   reset bit 6 is " & iData & " (" & cToBinary(cMKI(iData)) & ")" & vbCr
   Call cSetBitI(iData, 9, True)
   strDisplay = strDisplay + "   set bit 9 is " & iData & " (" & cToBinary(cMKI(iData)) & ")" & vbCr & vbCr
   strDisplay = strDisplay + "Long value : " & lData & " (" & cToBinary(cMKL(lData)) & ")" & vbCr
   Call cSetBitL(lData, 6, True)
   strDisplay = strDisplay + "   set bit 6 is " & lData & " (" & cToBinary(cMKL(lData)) & ")" & vbCr
   Call cSetBitL(lData, 12, False)
   strDisplay = strDisplay + "   reset bit 12 is " & lData & " (" & cToBinary(cMKL(lData)) & ")" & vbCr
   Call cSetBitL(lData, 24, True)
   strDisplay = strDisplay + "   set bit 24 is " & lData & " (" & cToBinary(cMKL(lData)) & ")" & vbCr & vbCr
   strDisplay = strDisplay + "Single value : " & sData & " (" & cToBinary(cMKS(sData)) & ")" & vbCr
   Call cSetBitS(sData, 0, True)
   strDisplay = strDisplay + "   set bit 0 is " & sData & " (" & cToBinary(cMKS(sData)) & ")" & vbCr
   Call cSetBitS(sData, 3, True)
   strDisplay = strDisplay + "   set bit 3 is " & sData & " (" & cToBinary(cMKS(sData)) & ")" & vbCr
   Call cSetBitS(sData, 6, True)
   strDisplay = strDisplay + "   set bit 6 is " & sData & " (" & cToBinary(cMKS(sData)) & ")" & vbCr
   Call cSetBitS(sData, 12, True)
   strDisplay = strDisplay + "   set bit 12 is " & sData & " (" & cToBinary(cMKS(sData)) & ")" & vbCr
   Call cSetBitS(sData, 24, True)
   strDisplay = strDisplay + "   set bit 24 is " & sData & " (" & cToBinary(cMKS(sData)) & ")" & vbCr & vbCr
   strDisplay = strDisplay + "Double value : " & dData & " (" & cToBinary(cMKD(dData)) & ")" & vbCr
   Call cSetBitD(dData, 0, False)
   strDisplay = strDisplay + "   reset bit 0 is " & dData & " (" & cToBinary(cMKD(dData)) & ")" & vbCr
   Call cSetBitD(dData, 3, False)
   strDisplay = strDisplay + "   reset bit 3 is " & dData & " (" & cToBinary(cMKD(dData)) & ")" & vbCr
   Call cSetBitD(dData, 12, False)
   strDisplay = strDisplay + "   reset bit 12 is " & dData & " (" & cToBinary(cMKD(dData)) & ")" & vbCr
   Call cSetBitD(dData, 24, False)
   strDisplay = strDisplay + "   reset bit 24 is " & dData & " (" & cToBinary(cMKD(dData)) & ")" & vbCr
   Call cSetBitD(dData, 48, False)
   strDisplay = strDisplay + "   reset bit 48 is " & dData & " (" & cToBinary(cMKD(dData)) & ")" & vbCr & vbCr
   'time the function
   cStartBasisTimer
   For i = 1 To ItemFile
      Call cSetBitI(iData, 0, True)
   Next i
   strDisplay = strDisplay & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = strDisplay
End Sub
Private Sub TestAddTwoTimes()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = "The time '10:00:58' + '02:01:02' is '" & cAddTwoTimes("10:00:58", "02:01:02") & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "The time '23:58:58' + '01:02:01' is '" & cAddTwoTimes("23:58:58", "01:02:01") & "'" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cAddTwoTimes("23:58:58", "01:02:01")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestAlign()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = "T2WIN-16"
   Title = "Left Align of [" & Tmp & "] is " & vbCr & "'"
   Tmp1 = Title & cAlign(Tmp, -1, 30) & "'" & vbCr & vbCr
   Title = "Center Align of [" & Tmp & "] is " & vbCr & "'"
   Tmp1 = Tmp1 & Title & cAlign(Tmp, 0, 30) & "'" & vbCr & vbCr
   Title = "Right Align of [" & Tmp & "] is " & vbCr & "'"
   Tmp1 = Tmp1 & Title & cAlign(Tmp, 1, 30) & "'" & vbCr & vbCr
   j = cTimerOpen()
   i = cTimerStart(j)
   For i = 1 To Item
      Tmp2 = cAlign(Tmp, 0, 30)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cTimerRead(j) & " ms"
   i = cTimerClose(j)
   Label3.Caption = Tmp1
End Sub
Private Sub TestAllSubDir()
   Dim n       As Integer
   Dim Tmp     As String
   n = -1
   Tmp = cAllSubDirectories("C:", n)
   Label3.Caption = "Directories founden on drive C are " & n & vbCr & Tmp
End Sub
Private Sub TestAndToken()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = "FOX|OVER|THE"
   Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
   Tmp1 = "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndToken(Tmp2, Tmp), "ok", "ko") & vbCr & vbCr
   Tmp = "quick|jumps|the"
   Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
   Tmp1 = Tmp1 & "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndToken(Tmp2, Tmp), "ok", "ko") & vbCr & vbCr
   Tmp = "FOX\OVER\THE"
   Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
   Tmp1 = Tmp1 & "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndTokenIn(Tmp2, Tmp, "\"), "ok", "ko") & vbCr & vbCr
   Tmp = "quick\jumps\the"
   Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
   Tmp1 = Tmp1 & "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndTokenIn(Tmp2, Tmp, "\"), "ok", "ko") & vbCr & vbCr
   Tmp = "FOX/OVER/THE"
   Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
   Tmp1 = Tmp1 & "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndTokenIn(Tmp2, Tmp, "\"), "ok", "ko") & vbCr & vbCr
   Tmp = "quick\JUMPS\the"
   Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
   Tmp1 = Tmp1 & "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndTokenIn(Tmp2, Tmp, "\"), "ok", "ko") & vbCr & vbCr
   Tmp = LCase$("quick\jumps\THE")
   Tmp2 = LCase$("THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG")
   Tmp1 = Tmp1 & "All tokens '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cAndTokenIn(Tmp2, Tmp, "\"), "ok", "ko") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cAndToken(Tmp2, Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestArrayLB()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Long
   Dim j          As Long
   Dim n1         As Long
   Dim n2         As Long
   Dim m1         As Integer
   Dim m2         As Integer
   m1 = -99
   m2 = 99
   ReDim AD(m1 To m2) As String
   Randomize Timer
   ' initialization because we use ReDim without Global definition
   For i = m1 To m2
      If ((Abs(i) Mod 2) = 0) Then
         AD(i) = i & " " & Chr$(64 + Int(26 * Rnd)) + Chr$(64 + Int(26 * Rnd)) + Chr$(64 + Int(26 * Rnd))
      Else
         AD(i) = i & " " & Chr$(64 + Int(26 * Rnd)) + Chr$(64 + Int(26 * Rnd)) + Chr$(64 + Int(26 * Rnd)) + Chr$(64 + Int(26 * Rnd))
      End If
   Next i
   Tmp1 = "Memory array (" & m1 & " To " & m2 & ") has been created and initialized." & vbCr
   j = cArrayToListBox(List1.hWnd, AD())
   j = cArrayToListBox(List2.hWnd, AD())
   List1.Clear
   cStartBasisTimer
   For i = 1 To Item
      j = cArrayToListBox(List1.hWnd, AD())
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestArrayOnDisk()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Long
   Dim j          As Long
   Dim n1         As Long
   Dim n2         As Long
   Dim m1         As Integer
   Dim m2         As Integer
   m1 = -9999
   m2 = 9999
   ReDim AD(m1 To m2, 0 To 1) As Long
   Randomize Timer
   n1 = Int(1234567890 * Rnd)
   n2 = -Int(987654321 * Rnd)
   ' initialization because we use ReDim without Global definition
   For i = m1 To m2
      AD(i, 0) = n1
      AD(i, 1) = n2
   Next i
   Tmp = "test.dat"
   Tmp1 = "Memory array (" & m1 & " To " & m2 & ", 0 To 1) has been created and initialized." & vbCr
   Tmp1 = Tmp1 + "File '" & Tmp & "' will be used." & vbCr
   Tmp1 = Tmp1 + "Each (i,0) is init with '" & n1 & "'." & vbCr
   Tmp1 = Tmp1 + "Each (i,1) is init with '" & n2 & "'." & vbCr & vbCr
   Tmp1 = Tmp1 + "AD(" & m1 & ", 0) is " & AD(m1, 0) & vbCr
   Tmp1 = Tmp1 + "AD(" & m2 & ", 0) is " & AD(m2, 0) & vbCr
   Tmp1 = Tmp1 + "AD(" & m1 & ", 1) is " & AD(m1, 1) & vbCr
   Tmp1 = Tmp1 + "AD(" & m2 & ", 1) is " & AD(m2, 1) & vbCr & vbCr
   Tmp1 = Tmp1 + "Put array on disk is '" & cArrayOnDisk(Tmp, AD(), PUT_ARRAY_ON_DISK) & "' bytes." & vbCr & vbCr
   Tmp1 = Tmp1 + "Memory array (" & m1 & " To " & m2 & ", 0 To 1) has been zero'ed." & vbCr & vbCr
   For i = m1 To m2
      AD(i, 0) = 0
      AD(i, 1) = 0
   Next i
   Tmp1 = Tmp1 + "AD(" & m1 & ", 0) is " & AD(m1, 0) & vbCr
   Tmp1 = Tmp1 + "AD(" & m2 & ", 0) is " & AD(m2, 0) & vbCr
   Tmp1 = Tmp1 + "AD(" & m1 & ", 1) is " & AD(m1, 1) & vbCr
   Tmp1 = Tmp1 + "AD(" & m2 & ", 1) is " & AD(m2, 1) & vbCr & vbCr
   Tmp1 = Tmp1 + "Get array on disk is '" & cArrayOnDisk(Tmp, AD(), GET_ARRAY_ON_DISK) & "' bytes." & vbCr & vbCr
   Tmp1 = Tmp1 + "AD(" & m1 & ", 0) is " & AD(m1, 0) & vbCr
   Tmp1 = Tmp1 + "AD(" & m2 & ", 0) is " & AD(m2, 0) & vbCr
   Tmp1 = Tmp1 + "AD(" & m1 & ", 1) is " & AD(m1, 1) & vbCr
   Tmp1 = Tmp1 + "AD(" & m2 & ", 1) is " & AD(m2, 1) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cArrayOnDisk(Tmp, AD(), GET_ARRAY_ON_DISK)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestArrayStringOnDisk()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Long
   Dim j          As Long
   Dim n1         As Long
   Dim n2         As Long
   Dim r          As Long
   Dim m1         As Integer
   Dim m2         As Integer
   m1 = -999
   m2 = 4000
   ReDim AD(m1 To m2) As String
   ' initialization because we use ReDim without Global definition
   'For i = m1 To m2
   '   AD(i) = Space$(256)
   'Next i
   Randomize Timer
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\autoexec.tab"
   Tmp1 = "Reading file '" & Tmp & "' into AD(" & m1 & " To " & m2 & ") is '" & cArrayStringOnDisk(Tmp, AD(), GET_ARRAY_ON_DISK, r) & "'" & vbCr
   Tmp1 = Tmp1 & "   The 7 (on " & r & ") first lines in array are : " & vbCr & vbCr
   For i = 0 To 6
      Tmp1 = Tmp1 & AD(m1 + i) & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr & "Writing file '" & Tmp2 & "' from AD(" & m1 & " To " & m2 & ") is '" & cArrayStringOnDisk(Tmp2, AD(), PUT_ARRAY_ON_DISK, r) & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "Reading file '" & Tmp2 & "' into AD(" & m1 & " To " & m2 & ") is '" & cArrayStringOnDisk(Tmp2, AD(), GET_ARRAY_ON_DISK, r) & "'" & vbCr
   Tmp1 = Tmp1 & "   The 7 (on " & r & ") first lines in array are : " & vbCr & vbCr
   For i = 0 To 6
      Tmp1 = Tmp1 & AD(m1 + i) & vbCr
   Next i
   cStartBasisTimer
   For i = 1 To Item
      j = cArrayStringOnDisk(Tmp, AD(), GET_ARRAY_ON_DISK, r)
   Next i
   Tmp1 = Tmp1 & vbCr & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestAscTime()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim ErrCode    As Integer
   Tmp1 = ""
   For i = LNG_FRENCH To LNG_NORVEGIAN
      Tmp1 = Tmp1 + cGetAscTime(i) & vbCr
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp = cGetAscTime(LNG_FRENCH)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestAtoR()
   Dim Tmp        As Integer
   Dim Tmp1       As String
   Tmp = Year(Int(Now))
   Tmp1 = Tmp & " in Roman is " & UCase$(cArabicToRoman(Tmp)) & vbCr
   Tmp = Year(Int(Now)) - 1
   Tmp1 = Tmp1 & Tmp & " in Roman is " & UCase$(cArabicToRoman(Tmp)) & vbCr
   Tmp = Year(Int(Now)) + 1
   Tmp1 = Tmp1 & Tmp & " in Roman is " & UCase$(cArabicToRoman(Tmp)) & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestBaseConversion()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim ErrCode    As Integer
   Tmp1 = ""
   For i = 2 To 20
      Tmp1 = Tmp1 + "Convert '1234567' base 10 to base " & i & " is " & cBaseConversion("1234567", 10, i) & vbCr
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp = cBaseConversion("123456789", 10, 10)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestBetween()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = "601 is not between 720 and 840 => " & cBetween(601, 720, 840) & vbCr & vbCr
   Tmp1 = Tmp1 & "601 is between 540 and 602 => " & cBetween(601, 540, 602) & vbCr & vbCr
   Tmp1 = Tmp1 & "61 is between 61 and 62 => " & cBetween(61, 61, 62) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cBetween(720, 0, 1439)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestBig()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m1         As Double
   Dim m2         As Double
   m1 = 123456789012345#
   m2 = 987654321098765#
   Tmp1 = Tmp1 & "Double     : Add '" & m1 & "' and '" & m2 & "' is '" & (m1 + m2) & "'" & vbCr
   Tmp1 = Tmp1 & "Big Double : Add '" & m1 & "' and '" & m2 & "' is '" & cBigFmt(cBigAdd(cMKN(Str$(m1)), cMKN(Str$(m2))), 0) & "'" & vbCr
   Tmp1 = Tmp1 & "Big Num    : Add '" & m1 & "' and '" & m2 & "' is '" & cBigNum(LTrim$(Str$(m1)), BIG_ADD, LTrim$(Str$(m2))) & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "Double     : Sub '" & m1 & "' and '" & m2 & "' is '" & (m1 - m2) & "'" & vbCr
   Tmp1 = Tmp1 & "Big Double : Sub '" & m1 & "' and '" & m2 & "' is '" & cBigFmt(cBigSub(cMKN(Str$(m1)), cMKN(Str$(m2))), 0) & "'" & vbCr
   Tmp1 = Tmp1 & "Big Num    : Sub '" & m1 & "' and '" & m2 & "' is '" & cBigNum(LTrim$(Str$(m1)), BIG_SUB, LTrim$(Str$(m2))) & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "Double     : Mul '" & m1 & "' and '" & m2 & "' is '" & (m1 * m2) & "'" & vbCr
   Tmp1 = Tmp1 & "Big Double : Mul '" & m1 & "' and '" & m2 & "' is '" & cBigFmt(cBigMul(cMKN(Str$(m1)), cMKN(Str$(m2))), 0) & "'" & vbCr
   Tmp1 = Tmp1 & "Big Num    : Mul '" & m1 & "' and '" & m2 & "' is '" & cBigNum(LTrim$(Str$(m1)), BIG_MUL, LTrim$(Str$(m2))) & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "Double     : Div '" & m1 & "' and '" & m2 & "' is '" & (m1 / m2) & "'" & vbCr
   Tmp1 = Tmp1 & "Big Double : Div '" & m1 & "' and '" & m2 & "' is '" & cBigFmt(cBigDiv(cMKN(Str$(m1)), cMKN(Str$(m2))), 0) & "'" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Tmp3 = cBigAdd(cMKN(Str$(m1)), cMKN(Str$(m2)))
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestBigNum()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim Tmp4       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Double
   Tmp3 = "00001234567890123456789012345678901"
   Tmp4 = "00009876543210987654321098765432100"
   Tmp1 = Tmp1 & "X = " & Tmp3 & vbCr
   Tmp1 = Tmp1 & "Y = " & Tmp4 & vbCr & vbCr
   Tmp = Tmp3
   Tmp2 = Tmp4
   Tmp1 = Tmp1 & "'(X) + (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_ADD, Tmp2) & "'" & vbCr
   Tmp = Tmp3
   Tmp2 = "-" & Tmp4
   Tmp1 = Tmp1 & "'(X) + (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_ADD, Tmp2) & "'" & vbCr
   Tmp = "-" & Tmp3
   Tmp2 = Tmp4
   Tmp1 = Tmp1 & "'(-X) + (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_ADD, Tmp2) & "'" & vbCr
   Tmp = "-" & Tmp3
   Tmp2 = "-" & Tmp4
   Tmp1 = Tmp1 & "'(-X) + (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_ADD, Tmp2) & "'" & vbCr & vbCr
   Tmp = Tmp3
   Tmp2 = Tmp4
   Tmp1 = Tmp1 & "'(X) - (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_SUB, Tmp2) & "'" & vbCr
   Tmp = Tmp3
   Tmp2 = "-" & Tmp4
   Tmp1 = Tmp1 & "'(X) - (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_SUB, Tmp2) & "'" & vbCr
   Tmp = "-" & Tmp3
   Tmp2 = Tmp4
   Tmp1 = Tmp1 & "'(-X) - (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_SUB, Tmp2) & "'" & vbCr
   Tmp = "-" & Tmp3
   Tmp2 = "-" & Tmp4
   Tmp1 = Tmp1 & "'(-X) - (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_SUB, Tmp2) & "'" & vbCr & vbCr
   Tmp = Tmp3
   Tmp2 = Tmp4
   Tmp1 = Tmp1 & "'(X) * (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_MUL, Tmp2) & "'" & vbCr
   Tmp = Tmp3
   Tmp2 = "-" & Tmp4
   Tmp1 = Tmp1 & "'(X) * (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_MUL, Tmp2) & "'" & vbCr
   Tmp = "-" & Tmp3
   Tmp2 = Tmp4
   Tmp1 = Tmp1 & "'(-X) * (Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_MUL, Tmp2) & "'" & vbCr
   Tmp = "-" & Tmp3
   Tmp2 = "-" & Tmp4
   Tmp1 = Tmp1 & "'(-X) * (-Y)' " & Space$(3) & " is '" & cBigNum(Tmp, BIG_MUL, Tmp2) & "'" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Tmp3 = cBigNum(Tmp, BIG_ADD, Tmp2)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " ADD = " & (cReadBasisTimer() / 1000) & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Tmp3 = cBigNum(Tmp, BIG_SUB, Tmp2)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " SUB = " & (cReadBasisTimer() / 1000) & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Tmp3 = cBigNum(Tmp, BIG_MUL, Tmp2)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " MUL = " & (cReadBasisTimer() / 1000)
   Label3.Caption = Tmp1
End Sub
Private Sub TestBigString01()
   Dim Tmp1       As String
   Dim m1         As Integer
   Dim p1         As Integer
   Tmp1 = "Create a big string of 512 Kb is "
   m1 = cHugeStrCreate(512 * 1024&)
   Tmp1 = Tmp1 & IIf(m1 <> 0, "OK", "ko") & " (" & m1 & ")" & vbCr
   Tmp1 = Tmp1 & "Size (" & m1 & ") is " & cHugeStrSize(m1) & vbCr
   Tmp1 = Tmp1 & "Memory Address (" & m1 & ") is " & cHugeStrAddress(m1) & vbCr
   Tmp1 = Tmp1 & "Length (" & m1 & ") is " & cHugeStrLength(m1) & vbCr
   Tmp1 = Tmp1 & "Add '1234567890' (" & m1 & ") is " & IIf(cHugeStrAdd(m1, "1234567890"), "OK", "ko") & vbCr
   Tmp1 = Tmp1 & "Length (" & m1 & ") is " & cHugeStrLength(m1) & vbCr
   Tmp1 = Tmp1 & "Pointer (" & m1 & ") is " & cHugeStrGetWP(m1) & vbCr
   Tmp1 = Tmp1 & "Add 'This is a test' (" & m1 & ") is " & IIf(cHugeStrAdd(m1, "This is a test"), "OK", "ko") & vbCr
   Tmp1 = Tmp1 & "Length (" & m1 & ") is " & cHugeStrLength(m1) & vbCr
   Tmp1 = Tmp1 & "Pointer (" & m1 & ") is " & cHugeStrGetWP(m1) & vbCr
   Tmp1 = Tmp1 & "Blocks (" & m1 & ") is " & cHugeStrBlocks(m1) & vbCr
   Tmp1 = Tmp1 & "Read (" & m1 & ") is '" & cHugeStrRead(m1, 1) & "'" & vbCr
   Tmp1 = Tmp1 & "Set pointer (" & m1 & ") to 7 is " & cHugeStrSetWP(m1, 7) & vbCr
   Tmp1 = Tmp1 & "Add 'THIS IS A TEST' (" & m1 & ") is " & IIf(cHugeStrAdd(m1, "THIS IS A TEST"), "OK", "ko") & vbCr
   Tmp1 = Tmp1 & "Length (" & m1 & ") is " & cHugeStrLength(m1) & vbCr
   Tmp1 = Tmp1 & "Read (" & m1 & ") is '" & cHugeStrRead(m1, 1) & "'" & vbCr
   Tmp1 = Tmp1 & "Append 'append one' (" & m1 & ") is " & IIf(cHugeStrAppend(m1, "append one"), "OK", "ko") & vbCr
   Tmp1 = Tmp1 & "Append 'append two' (" & m1 & ") is " & IIf(cHugeStrAppend(m1, "append two"), "OK", "ko") & vbCr
   Tmp1 = Tmp1 & "Length (" & m1 & ") is " & cHugeStrLength(m1) & vbCr
   Tmp1 = Tmp1 & "Read (" & m1 & ") is '" & cHugeStrRead(m1, 1) & "'" & vbCr
   Tmp1 = Tmp1 & "Set pointer (" & m1 & ") to " & cHugeStrLength(m1) & " is " & cHugeStrSetWP(m1, cHugeStrLength(m1)) & vbCr
   Tmp1 = Tmp1 & "Add 'AZERTYUIOP' (" & m1 & ") is " & IIf(cHugeStrAdd(m1, "AZERTYUIOP"), "OK", "ko") & vbCr
   Tmp1 = Tmp1 & "Length (" & m1 & ") is " & cHugeStrLength(m1) & vbCr
   Tmp1 = Tmp1 & "Mid (" & m1 & ") is '" & cHugeStrMid(m1, 3, 10) & "'" & vbCr
   Tmp1 = Tmp1 & "Read (" & m1 & ") is '" & cHugeStrRead(m1, 1) & "'" & vbCr
   Tmp1 = Tmp1 & "Clear (" & m1 & ") is " & IIf(cHugeStrClear(m1), "OK", "ko") & vbCr
   Tmp1 = Tmp1 & "Free a big string of 512 Kb is "
   p1 = cHugeStrFree(m1)
   Tmp1 = Tmp1 & IIf(p1 <> 0, "OK", "ko") & " (" & p1 & ")" & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestBlockCharFromLeft()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "The 3,7,1 blocks from left of [" & Tmp & "] are " & vbCr & vbCr
   Tmp = Text1.Text
   Tmp1 = Title & "3:" & cBlockCharFromLeft(Tmp, 3) & " | 7:" & cBlockCharFromLeft(Tmp, 7) & " | 1:" & cBlockCharFromLeft(Tmp, 1) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cBlockCharFromLeft(Tmp, 2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestBlockCharFromRight()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "The 3,7,1 blocks from right of [" & Tmp & "] are " & vbCr & vbCr
   Tmp = Text1.Text
   Tmp1 = Title & "3:" & cBlockCharFromRight(Tmp, 3) & " | 7:" & cBlockCharFromRight(Tmp, 7) & " | 1:" & cBlockCharFromRight(Tmp, 1) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cBlockCharFromRight(Tmp, 2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestChangeChars()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   Title = "Change 'AZM' into 'qyc' of [" & Tmp & "] is "
   Call cChangeChars(Tmp, "AZM", "qyc")
   Tmp1 = Title & Tmp & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Call cChangeChars(Tmp, "AZM", "qyc")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestChangeCharsUntil()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   Title = "Change 'AZM' into 'qyc' of [" & Tmp & "] until 'N' is "
   Call cChangeCharsUntil(Tmp, "AZM", "qyc", "N")
   Tmp1 = Title & Tmp & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Call cChangeCharsUntil(Tmp, "AZM", "qyc", "N")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestChDir()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim ErrCode    As Integer
   Tmp1 = ""
   For i = 1 To 26
      k = cChDir(Chr$(64 + i) & ":\")
      If (k = True) Then
         Tmp1 = Tmp1 & "ChDir to \ on '" & Chr$(64 + i) & ":' is " & IIf(k = True, "succesfull", "not successfull") & vbCr
      End If
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      k = cChDir("C:\")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestChDrive()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim ErrCode    As Integer
   Tmp1 = ""
   For i = 1 To 26
      k = cChDrive(Chr$(64 + i))
      If (k = True) Then
         Tmp1 = Tmp1 & "ChDrive on '" & Chr$(64 + i) & ":' is " & IIf(k = True, "succesfull", "not successfull") & vbCr
      End If
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      k = cChDrive("C")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCheckChars()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   Title = "Check 'A','Z' in [" & Tmp & "] is "
   Tmp1 = Title & IIf(cCheckChars(Tmp, "AZ"), "all present", "not all present") & vbCr & vbCr
   Title = Tmp1 & "Check 'a','Z' in [" & Tmp & "] is "
   Tmp1 = Title & IIf(cCheckChars(Tmp, "aZ"), "all present", "not all present") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cCheckChars(Tmp, "AZ")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCheckNumericity()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "[" & Tmp & "] is "
   Tmp1 = Title & IIf(cCheckNumericity(Tmp), "Numeric", " not Numeric") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cCheckNumericity(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCheckTime()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = "10:01 is not between 12:00 and 14:00 => " & cCheckTime(601, 720, 840) & vbCr & vbCr
   Tmp1 = Tmp1 & "10:01 is between 09:00 and 10:02 => " & cCheckTime(601, 540, 602) & vbCr & vbCr
   Tmp1 = Tmp1 & "01:01 is between 23:58 and 02:45 => " & cCheckTime(61, 1438, 165) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cCheckTime(720, 0, 1439)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCloseAllEditForm()
   If (cCloseAllEditForm() = True) Then
      Label3.Caption = "CloseAllEditForm SUCCESS"
   Else
      Label3.Caption = "CloseAllEditForm FAIL"
   End If
End Sub
Private Sub TestClusterSize()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim ErrCode    As Integer
   Tmp1 = ""
   For i = 1 To 26
      k = cGetDiskClusterSize(Chr$(64 + i))
      If (k <> True) Then
         Tmp1 = Tmp1 & "DiskClusterSize for '" & Chr$(64 + i) & ":' is " & k & vbCr
      End If
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      k = cGetDiskClusterSize("C")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCnvAE()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "ASCII -> EBCDIC of '" & Tmp & "' is "
   Call cCnvASCIItoEBCDIC(Tmp)
   Tmp1 = Title & Tmp & vbCr & vbCr
   Title = "EBCDIC -> ASCII of '" & Tmp & "' is "
   Call cCnvEBCDICtoASCII(Tmp)
   Tmp1 = Tmp1 & Title & Tmp & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Call cCnvASCIItoEBCDIC(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCombination()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m1         As Double
   Dim m2         As Double
   For i = 0 To 10
      Tmp1 = Tmp1 & "Combination C(42, " & i & ") is '" & cCombination(42, i) & "'" & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   For i = 42 To 32 Step -1
      Tmp1 = Tmp1 & "Combination C(42, " & i & ") is '" & cCombination(42, i) & "'" & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      m1 = cCombination(42, 6)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCompact()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = "30313233343536373839"
   Title = "Compact '" & Tmp & "' is "
   Tmp1 = Title & cCompact(Tmp) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cCompact(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCompress()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = "A " & Chr$(9) & "BC  "
   Tmp = Tmp1
   Title = "Filter chr(0),chr(9),chr(32) in [" & Tmp & "] is "
   Tmp1 = Title & cCompress(Tmp) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cCompress(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCompressTab()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = "A      BC   DEF  GHIJ  "
   Title = "Compress tab (3 chars) into [" & Tmp & "] is " & vbCr & vbCr
   Tmp1 = Title & cCompressTab(Tmp, 3) & vbCr & vbCr
   Tmp = "A      BC   DEF  GHIJ  "
   Title = "Compress tab (2 chars) into [" & Tmp & "] is " & vbCr & vbCr
   Tmp1 = Tmp1 & Title & cCompressTab(Tmp, 2) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cCompressTab(Tmp, 3)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestControl3D()
   Dim i    As Integer
   Dim j    As Integer
   Dim r    As tagRECT
   Dim Tmp1 As String
   Call cGetCtlRect(Label3, r)
   Tmp1 = "Coordinates (in pixels) of this label are :" & vbCr & vbCr
   Tmp1 = Tmp1 & "Left : " & r.Left & vbCr
   Tmp1 = Tmp1 & "Top : " & r.Top & vbCr
   Tmp1 = Tmp1 & "Right : " & r.Right & vbCr
   Tmp1 = Tmp1 & "Bottom : " & r.Bottom & vbCr & vbCr
   Call cGetCtlRectTwips(Label3, r)
   Tmp1 = Tmp1 & "Coordinates (in twips) of this label are :" & vbCr & vbCr
   Tmp1 = Tmp1 & "Left : " & r.Left & vbCr
   Tmp1 = Tmp1 & "Top : " & r.Top & vbCr
   Tmp1 = Tmp1 & "Right : " & r.Right & vbCr
   Tmp1 = Tmp1 & "Bottom : " & r.Bottom & vbCr
   Label3.Caption = Tmp1
   For i = 1 To 11
      c3D Label3, 0, 0
      DoEvents
      j = cSleep(140)
      c3D Label3, 1, 0
      DoEvents
      j = cSleep(140)
   Next i
End Sub
Private Sub TestCountDirectories()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Integer
   Tmp1 = ""
   Tmp1 = Tmp1 & "Number of directories in C:\ is " & cCountDirectories("C:\*.*") & vbCr & vbCr
   Tmp1 = Tmp1 & "Number of directories in D:\ is " & cCountDirectories("D:\*.*") & vbCr & vbCr
   Tmp1 = Tmp1 & "Number of directories in E:\ is " & cCountDirectories("E:\*.*") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To 10
      k = cCountDirectories("C:\*.*")
   Next i
   Tmp1 = Tmp1 & "speed for " & 10 & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCountFiles()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Integer
   Tmp1 = ""
   Tmp1 = Tmp1 & "Number of files in C:\ is " & cCountFiles("C:\*.*") & vbCr & vbCr
   Tmp1 = Tmp1 & "Number of files in D:\ is " & cCountFiles("D:\*.*") & vbCr & vbCr
   Tmp1 = Tmp1 & "Number of files in E:\ is " & cCountFiles("E:\*.*") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To 10
      k = cCountFiles("C:\*.*")
   Next i
   Tmp1 = Tmp1 & "speed for " & 10 & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCountI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Integer
   ReDim array(20) As Integer
   Call cRndInit(-1)
   For i = LBound(array) To UBound(array)
      array(i) = cRndI()
      List1.AddItem "" & array(i)
   Next i
   Tmp1 = Tmp1 & "Count '" & array(5) & "' is " & cCountI(array(), array(5)) & vbCr
   Tmp1 = Tmp1 & "Count '" & array(10) & "' is " & cCountI(array(), array(10)) & vbCr
   Tmp1 = Tmp1 & "Count '" & array(15) & "' is " & cCountI(array(), array(15)) & vbCr
   Tmp1 = Tmp1 & "Count '" & array(20) & "' is " & cCountI(array(), array(20)) & vbCr
   Tmp1 = Tmp1 & "Count '" & -1234 & "' is " & cCountI(array(), -1234) & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cCountI(array(), array(1))
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCreateAndFill()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Create and Fill a string of 40 chars with [" & Tmp & "] is "
   Tmp1 = Title & cCreateAndFill(40, Tmp) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cCreateAndFill(40, Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCreateBits()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Create a string for 1024 bits is "
   Tmp1 = Title & Len(cCreateBits(1024)) & " bytes" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cCreateBits(1024)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestCustomControls()
   Dim i       As Integer
   Dim n       As Integer
   Dim Tmp1    As String
   n = frmT2W.Count - 1
   For i = 0 To n
      Tmp1 = Tmp1 + "Control name is '" & cGetCtlNameIndex(frmT2W.Controls(i)) & "'     Control Class is '" & cGetCtlClass(frmT2W.Controls(i)) & "'" + vbCr
   Next i
   Label3.Caption = Tmp1
End Sub
Private Sub TestDAL(Management As Integer)
   Dim Tmp        As String
   Dim ErrCode    As Integer
   Dim DA         As tagDISKARRAY
   ErrCode = cMakeDir("c:\t2w_tmp")
   DA.nFilename = "c:\t2w_tmp\dalong.tmp"
   DA.nType = DA_LONG
   DA.nIsTyped = False
   DA.nRows = 100
   DA.nCols = 100
   DA.nSheets = 2
   Select Case Management
      Case True      'create
         ErrCode = cDACreate(DA, True)
      Case False     'use
         ErrCode = cDACreate(DA, False)
      Case 1         'clear all
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClear(DA)
      Case 2         'clear sheet 2
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearSheet(DA, 2)
      Case 3         'clear last row
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearRow(DA, DA.nRows, 1)
      Case 4         'clear last col
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearCol(DA, DA.nCols, 1)
      Case 5         'clear last row in all sheets
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearRow(DA, DA.nRows, -1)
      Case 6         'clear last col in all sheets
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearCol(DA, DA.nCols, -1)
   End Select
   Tmp = Tmp & "ErrCode = " & ErrCode & vbCr & vbCr
   If (ErrCode = True) Then

      Tmp = Tmp & "DA.daSize       = " & DA.daSize & vbCr
      Tmp = Tmp & "DA.Signature    = " & DA.signature & vbCr
      Tmp = Tmp & "DA.nFilename    = " & Trim$(DA.nFilename) & vbCr
      Tmp = Tmp & "DA.nType        = " & DA.nType & vbCr
      Tmp = Tmp & "DA.nIsTyped     = " & DA.nIsTyped & vbCr
      Tmp = Tmp & "DA.nRows        = " & DA.nRows & vbCr
      Tmp = Tmp & "DA.nCols        = " & DA.nCols & vbCr
      Tmp = Tmp & "DA.nSheets      = " & DA.nSheets & vbCr
      Tmp = Tmp & "DA.rHandle      = " & DA.rHandle & vbCr
      Tmp = Tmp & "DA.rElementSize = " & DA.rElementSize & vbCr
      Tmp = Tmp & "DA.rFileSize    = " & DA.rFileSize & vbCr
      Tmp = Tmp & "DA.rParts       = " & DA.rParts & vbCr
      Tmp = Tmp & "DA.rRemain      = " & DA.rRemain & vbCr
      Tmp = Tmp & "DA.rSheetSize   = " & DA.rSheetSize & vbCr
      Tmp = Tmp & "DA.rTime        = " & DA.rTime & vbCr & vbCr
      If (Management = True) Then
         Call cDAPut(DA, 1, 1, 1, 12345)
         Call cDAPut(DA, 1, DA.nCols, 1, 56789)
         Call cDAPut(DA, DA.nRows, 1, 1, 54321)
         Call cDAPut(DA, DA.nRows, DA.nCols, 1, 98765)
         Call cDAPut(DA, 1, 1, 2, 12345678)
         Call cDAPut(DA, 1, DA.nCols, 2, 34567890)
         Call cDAPut(DA, DA.nRows, 1, 2, 123456789)
         Call cDAPut(DA, DA.nRows, DA.nCols, 2, 987654321)
      End If
      Tmp = Tmp & "R:1  , C:1  , D:1, Value : " & cDAGet(DA, 1, 1, 1) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:1, Value : " & cDAGet(DA, 1, DA.nCols, 1) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:" & DA.nRows & ", C:1  , D:1, Value : " & cDAGet(DA, DA.nRows, 1, 1) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:1, Value : " & cDAGet(DA, DA.nRows, DA.nCols, 1) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:1  , C:1  , D:2, Value : " & cDAGet(DA, 1, 1, 2) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:2, Value : " & cDAGet(DA, 1, DA.nCols, 2) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:" & DA.nRows & ", C:1  , D:2, Value : " & cDAGet(DA, DA.nRows, 1, 2) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:2, Value : " & cDAGet(DA, DA.nRows, DA.nCols, 2) & "   , time : " & DA.rTime & vbCr
   End If
   Call cDAClose(DA, False)
   Label3.Caption = Tmp
End Sub
Private Sub TestDAStr(Management As Integer)
   Dim Tmp        As String
   Dim ErrCode    As Integer
   Dim DA         As tagDISKARRAY
   ErrCode = cMakeDir("c:\t2w_tmp")
   DA.nFilename = "c:\t2w_tmp\dastring.tmp"
   DA.nType = 50
   DA.nIsTyped = False
   DA.nRows = 100
   DA.nCols = 100
   DA.nSheets = 2
   Select Case Management
      Case True      'create
         ErrCode = cDACreate(DA, True)
      Case False     'use
         ErrCode = cDACreate(DA, False)
      Case 1         'clear all
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClear(DA)
      Case 2         'clear sheet 2
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearSheet(DA, 2)
      Case 3         'clear last row
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearRow(DA, DA.nRows, 1)
      Case 4         'clear last col
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearCol(DA, DA.nCols, 1)
      Case 5         'clear last row in all sheets
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearRow(DA, DA.nRows, -1)
      Case 6         'clear last col in all sheets
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearCol(DA, DA.nCols, -1)
   End Select
   Tmp = Tmp & "ErrCode = " & ErrCode & vbCr & vbCr
   If (ErrCode = True) Then

      Tmp = Tmp & "DA.daSize       = " & DA.daSize & vbCr
      Tmp = Tmp & "DA.Signature    = " & DA.signature & vbCr
      Tmp = Tmp & "DA.nFilename    = " & Trim$(DA.nFilename) & vbCr
      Tmp = Tmp & "DA.nType        = " & DA.nType & vbCr
      Tmp = Tmp & "DA.nIsTyped     = " & DA.nIsTyped & vbCr
      Tmp = Tmp & "DA.nRows        = " & DA.nRows & vbCr
      Tmp = Tmp & "DA.nCols        = " & DA.nCols & vbCr
      Tmp = Tmp & "DA.nSheets      = " & DA.nSheets & vbCr
      Tmp = Tmp & "DA.rHandle      = " & DA.rHandle & vbCr
      Tmp = Tmp & "DA.rElementSize = " & DA.rElementSize & vbCr
      Tmp = Tmp & "DA.rFileSize    = " & DA.rFileSize & vbCr
      Tmp = Tmp & "DA.rParts       = " & DA.rParts & vbCr
      Tmp = Tmp & "DA.rRemain      = " & DA.rRemain & vbCr
      Tmp = Tmp & "DA.rSheetSize   = " & DA.rSheetSize & vbCr
      Tmp = Tmp & "DA.rTime        = " & DA.rTime & vbCr & vbCr
      If (Management = True) Then

         Call cDAPut(DA, 1, 1, 1, "D:1, ABCDEFGHIJ")
         Call cDAPut(DA, 1, DA.nCols, 1, "D:1, abcdefghij")
         Call cDAPut(DA, DA.nRows, 1, 1, "D:1, OPQRSTUVWXYZ")
         Call cDAPut(DA, DA.nRows, DA.nCols, 1, "D:1, oprqstuvwxyz")
         Call cDAPut(DA, 1, 1, 2, "D:2, 1234567890")
         Call cDAPut(DA, 1, DA.nCols, 2, "D:2, 0987654321")
         Call cDAPut(DA, DA.nRows, 1, 2, "D:2, 12345ABCDE")
         Call cDAPut(DA, DA.nRows, DA.nCols, 2, "D:2, VWXYZ54321")
      End If
      Tmp = Tmp & "R:1  , C:1  , D:1, Value : " & Trim$(cDAGet(DA, 1, 1, 1)) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:1, Value : " & Trim$(cDAGet(DA, 1, DA.nCols, 1)) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:" & DA.nRows & ", C:1  , D:1, Value : " & Trim$(cDAGet(DA, DA.nRows, 1, 1)) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:1, Value : " & Trim$(cDAGet(DA, DA.nRows, DA.nCols, 1)) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:1  , C:1  , D:2, Value : " & Trim$(cDAGet(DA, 1, 1, 2)) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:2, Value : " & Trim$(cDAGet(DA, 1, DA.nCols, 2)) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:" & DA.nRows & ", C:1  , D:2, Value : " & Trim$(cDAGet(DA, DA.nRows, 1, 2)) & "   , time : " & DA.rTime & vbCr
      Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:2, Value : " & Trim$(cDAGet(DA, DA.nRows, DA.nCols, 2)) & "   , time : " & DA.rTime & vbCr
   End If
   Call cDAClose(DA, False)
   Label3.Caption = Tmp
End Sub
Private Sub TestDate()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim nYear      As Integer
   Dim nMonth     As Integer
   Dim nDay       As Integer
   Dim nNow       As Long
   nNow = Int(Now)
   nYear = Year(nNow)
   nMonth = Month(nNow)
   nDay = Day(nNow)
   Tmp1 = "Today is the '" & Format$(Int(Now), "short date") & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "Day of the week (ISO, U.S., Special) is (" & cDayOfWeek(nYear, nMonth, nDay, True) & ", " & cDayOfWeek(nYear, nMonth, nDay, False) & ", " & cDayOfWeek(nYear, nMonth, nDay, 1) & ")" & vbCr & vbCr
   Tmp1 = Tmp1 & "Day of the year is '" & cDayOfYear(nYear, nMonth, nDay) & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "Week of the year (ISO, U.S., Special) is (" & cWeekOfYear(nYear, nMonth, nDay, True) & ", " & cWeekOfYear(nYear, nMonth, nDay, False) & ", " & cWeekOfYear(nYear, nMonth, nDay, 1) & ")" & vbCr & vbCr
   nNow = cDateToScalar(nYear, nMonth, nDay)
   Tmp1 = Tmp1 & "Scalar day is '" & nNow & "'" & vbCr
   nYear = 0
   nMonth = 0
   nDay = 0
   Call cScalarToDate(nNow, nYear, nMonth, nDay)
   Tmp1 = Tmp1 & "Year : " & nYear & ", Month : " & nMonth & ", Day : " & nDay & vbCr & vbCr & vbCr
   nNow = Int(Now)
   nYear = Year(nNow)
   nMonth = 1
   nDay = 1
   Tmp1 = Tmp1 & "First Day is the '" & Format$(DateSerial(nYear, nMonth, nDay), "short date") & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "Day of the week (ISO, U.S., Special) is (" & cDayOfWeek(nYear, nMonth, nDay, True) & ", " & cDayOfWeek(nYear, nMonth, nDay, False) & ", " & cDayOfWeek(nYear, nMonth, nDay, 1) & ")" & vbCr & vbCr
   Tmp1 = Tmp1 & "Day of the year is '" & cDayOfYear(nYear, nMonth, nDay) & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "Week of the year (ISO, U.S., Special) is (" & cWeekOfYear(nYear, nMonth, nDay, True) & ", " & cWeekOfYear(nYear, nMonth, nDay, False) & ", " & cWeekOfYear(nYear, nMonth, nDay, 1) & ")" & vbCr & vbCr
   nNow = cDateToScalar(nYear, nMonth, nDay)
   Tmp1 = Tmp1 & "Scalar day is '" & nNow & "'" & vbCr
   nYear = 0
   nMonth = 0
   nDay = 0
   Call cScalarToDate(nNow, nYear, nMonth, nDay)
   Tmp1 = Tmp1 & "Year : " & nYear & ", Month : " & nMonth & ", Day : " & nDay & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestDAType(Management As Integer)
   Dim Tmp        As String
   Dim ErrCode    As Integer
   Dim DA         As tagDISKARRAY
   Dim TE         As tagTASKENTRY
   ErrCode = cMakeDir("c:\t2w_tmp")
   DA.nFilename = "c:\t2w_tmp\datype.tmp"
   DA.nType = Len(TE)
   DA.nIsTyped = True
   DA.nRows = 100
   DA.nCols = 100
   DA.nSheets = 2
   Select Case Management
      Case True      'create
         ErrCode = cDACreate(DA, True)
      Case False     'use
         ErrCode = cDACreate(DA, False)
      Case 1         'clear all
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClear(DA)
      Case 2         'clear sheet 2
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearSheet(DA, 2)
      Case 3         'clear last row
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearRow(DA, DA.nRows, 1)
      Case 4         'clear last col
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearCol(DA, DA.nCols, 1)
      Case 5         'clear last row in all sheets
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearRow(DA, DA.nRows, -1)
      Case 6         'clear last col in all sheets
         ErrCode = cDACreate(DA, False)
         If (ErrCode = -1) Then ErrCode = cDAClearCol(DA, DA.nCols, -1)
      End Select
   Tmp = Tmp & "ErrCode = " & ErrCode & vbCr & vbCr
   If (ErrCode = True) Then

      Tmp = Tmp & "DA.daSize       = " & DA.daSize & vbCr
      Tmp = Tmp & "DA.Signature    = " & DA.signature & vbCr
      Tmp = Tmp & "DA.nFilename    = " & Trim$(DA.nFilename) & vbCr
      Tmp = Tmp & "DA.nType        = " & DA.nType & vbCr
      Tmp = Tmp & "DA.nIsTyped     = " & DA.nIsTyped & vbCr
      Tmp = Tmp & "DA.nRows        = " & DA.nRows & vbCr
      Tmp = Tmp & "DA.nCols        = " & DA.nCols & vbCr
      Tmp = Tmp & "DA.nSheets      = " & DA.nSheets & vbCr
      Tmp = Tmp & "DA.rHandle      = " & DA.rHandle & vbCr
      Tmp = Tmp & "DA.rElementSize = " & DA.rElementSize & vbCr
      Tmp = Tmp & "DA.rFileSize    = " & DA.rFileSize & vbCr
      Tmp = Tmp & "DA.rParts       = " & DA.rParts & vbCr
      Tmp = Tmp & "DA.rRemain      = " & DA.rRemain & vbCr
      Tmp = Tmp & "DA.rSheetSize   = " & DA.rSheetSize & vbCr
      Tmp = Tmp & "DA.rTime        = " & DA.rTime & vbCr & vbCr
      If (Management = True) Then
         ErrCode = cTasks(TE, True)
         Call cDAPutType(DA, 1, 1, 1, TE)
         ErrCode = cTasks(TE, False)
         Call cDAPutType(DA, 1, DA.nCols, 1, TE)
         ErrCode = cTasks(TE, False)
         Call cDAPutType(DA, DA.nRows, 1, 1, TE)
         ErrCode = cTasks(TE, False)
         Call cDAPutType(DA, DA.nRows, DA.nCols, 1, TE)
         ErrCode = cTasks(TE, False)
         Call cDAPutType(DA, 1, 1, 2, TE)
         ErrCode = cTasks(TE, False)
         Call cDAPutType(DA, 1, DA.nCols, 2, TE)
         ErrCode = cTasks(TE, False)
         Call cDAPutType(DA, DA.nRows, 1, 2, TE)
         ErrCode = cTasks(TE, False)
         Call cDAPutType(DA, DA.nRows, DA.nCols, 2, TE)

      End If
      Call cDAGetType(DA, 1, 1, 1, TE)
      Tmp = Tmp & "R:1  , C:1  , D:1, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & vbCr
      Call cDAGetType(DA, 1, DA.nCols, 1, TE)
      Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:1, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & vbCr
      Call cDAGetType(DA, DA.nRows, 1, 1, TE)
      Tmp = Tmp & "R:" & DA.nRows & ", C:1  , D:1, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & vbCr
      Call cDAGetType(DA, DA.nRows, DA.nCols, 1, TE)
      Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:1, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & vbCr
      Call cDAGetType(DA, 1, 1, 2, TE)
      Tmp = Tmp & "R:1  , C:1  , D:2, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & vbCr
      Call cDAGetType(DA, 1, DA.nCols, 2, TE)
      Tmp = Tmp & "R:1  , C:" & DA.nCols & ", D:2, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & vbCr
      Call cDAGetType(DA, DA.nRows, 1, 2, TE)
      Tmp = Tmp & "R:" & DA.nRows & ", C:1  , D:2, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & vbCr
      Call cDAGetType(DA, DA.nRows, DA.nCols, 2, TE)
      Tmp = Tmp & "R:" & DA.nRows & ", C:" & DA.nCols & ", D:2, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & DA.rTime & vbCr
   End If
   Call cDAClose(DA, False)
   Label3.Caption = Tmp
End Sub
Private Sub TestDecrypt()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp3 = cToHexa(Format$(76543210))
   Tmp2 = "T2WIN-16"
   For i = ENCRYPT_LEVEL_0 To ENCRYPT_LEVEL_4
      Tmp = cEncrypt(Tmp2, Tmp3, i)
      Tmp1 = Tmp1 & "Decrypt (level " & i & ") of [" & Tmp & "] with '?' is "
      Tmp1 = Tmp1 & "[" & cDecrypt(Tmp, Tmp3, i) & "]" & vbCr & vbCr
   Next i
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cDecrypt(Tmp2, Tmp1, ENCRYPT_LEVEL_3)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestDeviationI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Double
   Dim n          As Double
   ReDim array(ItemMean) As Integer
   Randomize Timer
   m = 0
   For i = LBound(array) To UBound(array)
      array(i) = Int(RandI * Rnd(1))
      m = m + array(i)
      List1.AddItem "" & array(i)
   Next i
   m = m / (UBound(array) - LBound(array) + 1)
   n = 0
   For i = LBound(array) To UBound(array)
      n = n + ((array(i) - m) * (array(i) - m))
   Next i
   n = (Sqr(n) / (UBound(array) - LBound(array) + 1))
   Tmp1 = "The Deviation of a integer array of " & (ItemMean + 1) & " elements is " & vbCr & vbCr & cDeviationI(array()) & " (" & n & ")" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      m = cDeviationI(array())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestDOSGetVolLabel()
   Dim Title         As String
   Dim Tmp           As String
   Dim Tmp1          As String
   Dim Tmp2          As String
   Dim i             As Integer
   Dim j             As Integer
   For i = 1 To 4
      Tmp2 = cDOSGetVolumeLabel(Chr$(64 + i))
      If (Len(Tmp2) > 0) Then
         Tmp1 = Tmp1 & "Drive " & Chr$(64 + i) & " : '" & Tmp2 & "'" & vbCr
      Else
         Tmp1 = Tmp1 & "Drive " & Chr$(64 + i) & " : no volume label" & vbCr
      End If
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cDOSGetVolumeLabel("C")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestDOSMediaID()
   Dim Title         As String
   Dim Tmp           As String
   Dim Tmp1          As String
   Dim Tmp2          As String
   Dim i             As Integer
   Dim j             As Integer
   Dim MEDIAID       As tagMEDIAID
   For i = 1 To 7
      If (cDOSGetMediaID(Chr$(64 + i), MEDIAID) = True) Then
         Tmp1 = Tmp1 & "Drive " & Chr$(64 + i) & " : " & vbCr
         Tmp1 = Tmp1 & "   SerialNumber is '" & Hex$(MEDIAID.SerialNumber) & "'" & vbCr
         Tmp1 = Tmp1 & "   VolLabel is '" & MEDIAID.VolLabel & "'" & vbCr
         Tmp1 = Tmp1 & "   FileSysType is '" & MEDIAID.FileSysType & "'" & vbCr & vbCr
      Else
         Tmp1 = Tmp1 & "Drive " & Chr$(64 + i) & " : no media id" & vbCr & vbCr
      End If
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cDOSGetMediaID("", MEDIAID)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestDriveType()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = ""
   For i = 1 To 26
      j = cGetDriveType(Chr$(64 + i))
      If (j > 0) Then
         Tmp1 = Tmp1 & "'" & Chr$(64 + i) & ":' is "
         Select Case j
            Case 2
               Tmp1 = Tmp1 & "removable disk" & vbCr
            Case 3
               Tmp1 = Tmp1 & "fixed disk" & vbCr
            Case 4
               Tmp1 = Tmp1 & "remote disk" & vbCr
            Case 20
               Tmp1 = Tmp1 & "cd-rom" & vbCr
         End Select
      End If
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cGetDriveType("C")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestEncrypt()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp3 = cToHexa(Format$(76543210))
   Tmp2 = "T2WIN-16"
   Tmp = Text1.Text
   For i = ENCRYPT_LEVEL_0 To ENCRYPT_LEVEL_4
      Tmp1 = Tmp1 & "Encrypt (level " & i & ") of [" & Tmp2 & "] with '?' is "
      Tmp1 = Tmp1 & "[" & cEncrypt(Tmp2, Tmp3, i) & "]" & vbCr & vbCr
   Next i
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cEncrypt(Tmp2, Tmp1, ENCRYPT_LEVEL_3)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestExpandTab()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = "A" & Chr$(9) & "BC" & Chr$(9) & "DEF" & Chr$(9) & "GHIJ" & Chr$(9) & ""
   Title = "Expand tab (2 chars) into [" & Tmp & "] is " & vbCr & vbCr
   Tmp1 = Title & cExpandTab(Tmp, 2) & vbCr & vbCr
   Tmp = "A" & Chr$(9) & "BC" & Chr$(9) & "DEF" & Chr$(9) & "GHIJ" & Chr$(9) & ""
   Title = "Expand tab (4 chars) into [" & Tmp & "] is " & vbCr & vbCr
   Tmp1 = Tmp1 & Title & cExpandTab(Tmp, 4) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cExpandTab(Tmp, 3)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileChangeChars()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim Tmp4       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\autoexec.tab"
   Tmp3 = "REM"
   Tmp4 = "rem"
   Tmp1 = Tmp1 & "File Copy " & Tmp & " to " & Tmp2 & " is " & cFileCopy(Tmp, Tmp2) & vbCr & vbCr
   Tmp1 = Tmp1 & "File Change Chars : '" & Tmp3 & "' -> '" & Tmp4 & "' in '" & Tmp2 & "' is " & cFileChangeChars(Tmp2, Tmp3, Tmp4, "c:\tmp.tmp") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      If ((i Mod 2) = 1) Then
         j = cFileChangeChars(Tmp2, Tmp3, Tmp4, "")
      Else
         j = cFileChangeChars(Tmp2, Tmp4, Tmp3, "")
      End If
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileCmp()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\tmp\autoexec.bat"
   Tmp1 = Tmp1 & "Compare file attribute " & Tmp & " with " & Tmp2 & " is " & cCmpFileAttribute(Tmp, Tmp2) & vbCr
   Tmp1 = Tmp1 & "Compare file size " & Tmp & " with " & Tmp2 & " is " & cCmpFileSize(Tmp, Tmp2) & vbCr
   Tmp1 = Tmp1 & "Compare file time " & Tmp & " with " & Tmp2 & " is " & cCmpFileTime(Tmp, Tmp2) & vbCr
   Tmp1 = Tmp1 & "Compare file contents (case sensitive) " & Tmp & " with " & Tmp2 & " is " & cCmpFileContents(Tmp, Tmp2, True) & vbCr
   Tmp1 = Tmp1 & "Compare file contents (not sensitive) " & Tmp & " with " & Tmp2 & " is " & cCmpFileContents(Tmp, Tmp2, False) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cCmpFileSize(Tmp, Tmp2)
   Next i
   Tmp1 = Tmp1 & "file size speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cCmpFileContents(Tmp, Tmp2, True)
   Next i
   Tmp1 = Tmp1 & "file contents (cs) speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cCmpFileContents(Tmp, Tmp2, False)
   Next i
   Tmp1 = Tmp1 & "file contents (ns) speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileCompress()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\autoexec.tb1"
   Tmp3 = "c:\autoexec.tb2"
   Tmp1 = Tmp1 & "File Compress '" & Tmp & "' to '" & Tmp2 & "' is " & cFileCompress(Tmp, Tmp2) & vbCr
   Tmp1 = Tmp1 & "File Expand '" & Tmp2 & "' to '" & Tmp3 & "' is " & cFileExpand(Tmp2, Tmp3) & vbCr
   Tmp1 = Tmp1 & "Compare file contents (not sensitive) '" & Tmp & "' with '" & Tmp3 & "' is " & IIf(cCmpFileContents(Tmp, Tmp3, False) = -1, "same", "not same") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cFileCompress(Tmp, Tmp2)
   Next i
   j = cFileExpand(Tmp2, Tmp3)
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileCompressTab()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\autoexec.tb1"
   Tmp3 = "c:\autoexec.tb2"
   For i = 1 To 4
      Tmp1 = Tmp1 & "File CompressTab (" & i & " spaces = 1 tab) " & Tmp & " to " & Tmp2 & " is " & cFileCompressTab(Tmp, Tmp2, i) & vbCr
      Tmp1 = Tmp1 & "File ExpandTab (" & i & " spaces = 1 tab) " & Tmp2 & " to " & Tmp3 & " is " & cFileExpandTab(Tmp2, Tmp3, i) & vbCr
      Tmp1 = Tmp1 & "Compare file contents (not sensitive) '" & Tmp & "' with '" & Tmp3 & "' is " & IIf(cCmpFileContents(Tmp, Tmp3, False) = -1, "same", "not same") & vbCr & vbCr
   Next i
   cStartBasisTimer
   For i = 1 To Item
      j = cFileCompressTab(Tmp, Tmp2, 3)
   Next i
   j = cFileExpandTab(Tmp2, Tmp3, 3)
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileCopy()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\autoexec.tab"
   Tmp1 = Tmp1 & "File Copy " & Tmp & " to " & Tmp2 & " is " & cFileCopy(Tmp, Tmp2) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cFileCopy(Tmp, Tmp2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileCRC32()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Tmp = "c:\config.sys"
   Title = "CRC32 for file '" & Tmp & "' is "
   Tmp1 = Tmp1 & Title & Hex$(cFileCRC32(Tmp, OPEN_MODE_BINARY)) & vbCr & vbCr
   Tmp = "c:\autoexec.bat"
   Title = "CRC32 for file '" & Tmp & "' is "
   Tmp1 = Tmp1 & Title & Hex$(cFileCRC32(Tmp, OPEN_MODE_BINARY)) & vbCr & vbCr
   Tmp = "c:\command.com"
   Title = "CRC32 for file '" & Tmp & "' is "
   Tmp1 = Tmp1 & Title & Hex$(cFileCRC32(Tmp, OPEN_MODE_BINARY)) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      k = cFileCRC32(Tmp, OPEN_MODE_BINARY)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileEncrypt()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim Tmp4       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\ac.tb1"
   Tmp3 = "c:\ac.tb2"
   Tmp4 = cToHexa(Format$(76543210))
   For i = ENCRYPT_LEVEL_0 To ENCRYPT_LEVEL_4
      Tmp1 = Tmp1 & "Encrypt (level " & i & ") '" & Tmp & "' with '?' to '" & Tmp2 & "' is " & cFileEncrypt(Tmp, Tmp2, Tmp4, i) & vbCr
      Tmp1 = Tmp1 & "Decrypt (level " & i & ") '" & Tmp2 & "' with '?' to '" & Tmp3 & "' is " & cFileDecrypt(Tmp2, Tmp3, Tmp4, i) & vbCr
      Tmp1 = Tmp1 & "Compare (ns) '" & Tmp & "' with '" & Tmp3 & "' is " & IIf(cCmpFileContents(Tmp, Tmp3, False) = -1, "same", "not same") & vbCr & vbCr
   Next i
   cStartBasisTimer
   For i = 1 To Item
      j = cFileEncrypt(Tmp, Tmp2, Tmp4, ENCRYPT_LEVEL_3)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileFilter()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\autoexec.tab"
   Tmp3 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   Tmp3 = Tmp3 + LCase$(Tmp)
   Tmp1 = Tmp1 & "File Filter (A-Z, a-z) " & Tmp & " to " & Tmp2 & " is " & cFileFilter(Tmp, Tmp2, Tmp3) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cFileFilter(Tmp, Tmp2, Tmp3)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileFilterNot()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\autoexec.tab"
   Tmp3 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   Tmp3 = Tmp3 + LCase$(Tmp) + " =" + vbCr + Chr$(10)
   Tmp1 = Tmp1 & "File Filter Not in (A-Z, a-z, CR, LF, SPACE, =) " & Tmp & " to " & Tmp2 & " is " & cFileFilterNot(Tmp, Tmp2, Tmp3) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cFileFilterNot(Tmp, Tmp2, Tmp3)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileGetAttrib()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim FileAttrib As FileAttributeType
   Tmp1 = ""
   Tmp = cFilesInDirectory("*.*", True)
   j = cFileGetAttrib(Tmp, FileAttrib)
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & vbCr & vbCr
   Tmp = cSubDirectory("*.*", True)
   Tmp = cSubDirectory("*.*", False)
   Tmp = cSubDirectory("*.*", False)
   j = cFileGetAttrib(Tmp, FileAttrib)
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.SubDir, " is SubDir", " is not SubDir") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cFileGetAttrib(Tmp, FileAttrib)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileLineCount()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "C:\AUTOEXEC.BAT"
   Tmp1 = Tmp1 & "Total lines in '" & Tmp & "' are " & cFileLineCount(Tmp) & vbCr & vbCr
   Tmp = "C:\CONFIG.SYS"
   Tmp1 = Tmp1 & "Total lines in '" & Tmp & "' are " & cFileLineCount(Tmp) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cFileLineCount(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileMerge()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\config.sys"
   Tmp3 = "c:\merge.byt"
   Tmp1 = Tmp1 & "File Merge '" & Tmp & "' and '" & Tmp2 & "' to '" & Tmp3 & "' is " & cFileMerge(Tmp, Tmp2, Tmp3) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cFileMerge(Tmp, Tmp2, Tmp3)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileMergeExt()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Dim r          As Integer
   Dim m1         As Integer
   Dim m2         As Integer
   Tmp1 = ""
   Tmp3 = "c:\mergeext.byt"
   m1 = 1
   m2 = 7
   ReDim FileArray(m1 To m2) As String
   ' initialization because we use ReDim without Global definition
   ' For i = m1 To m2
   '   FileArray(i).Contents = Space$(256)
   ' Next i
   r = cFilesInDirToArray("C:\*.*", A_ALL, FileArray())
   Tmp1 = "Reading the first 7 files in directory 'C:\*.*' into FileArray(" & m1 & " To " & m2 & ") is '" & r & "'" & Chr$(13)
   For i = m1 To m2
      FileArray(i) = "C:\" + FileArray(i)
      Tmp1 = Tmp1 & "   " & FileArray(i) & " (size : " & cFileSize(FileArray(i)) & ")" & Chr$(13)
   Next i
   Tmp1 = Tmp1 & Chr$(13)
   Tmp1 = Tmp1 & "FileMergeExt of the 7 files into '" & Tmp3 & "' is " & cFileMergeExt(FileArray(), Tmp3) & Chr$(13) & Chr$(13)
   cStartBasisTimer
   For i = 1 To Item
      j = cFileMergeExt(FileArray(), Tmp3)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & Chr$(13) & Chr$(13)
   Label3.Caption = Tmp1
End Sub
Private Sub TestFilePathExists()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = "File t2win-16.dll " & IIf(cFilePathExists("t2win-16.dll") = True, "found", "not found") & vbCr & vbCr
   Tmp1 = Tmp1 & "Path \windows " & IIf(cFilePathExists("\windows") = True, "found", "not found") & vbCr & vbCr
   Tmp1 = Tmp1 & "Path \windows\wintime " & IIf(cFilePathExists("\windows\wintime") = True, "found", "not found") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cFilePathExists("t2win-16.dll")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileResetAllAttrib()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim FileAttrib As FileAttributeType
   Tmp1 = ""
   Tmp = "TEST.DAT"
   Call CreateFile
   FileAttrib.Archive = False
   FileAttrib.Hidden = True
   FileAttrib.ReadOnly = True
   FileAttrib.System = True
   j = cFileResetAllAttrib(Tmp)
   j = cFileGetAttrib(Tmp, FileAttrib)
   Tmp1 = "File " & Tmp & " has been reset with" & vbCr
   Tmp1 = Tmp1 & " flag archive" & vbCr
   Tmp1 = Tmp1 & " flag hidden" & vbCr
   Tmp1 = Tmp1 & " flag read-only" & vbCr
   Tmp1 = Tmp1 & " flag system" & vbCr & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFileResetAllAttrib(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileResetArchive()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim nArchive   As Integer
   Dim nHidden    As Integer
   Dim nReadOnly  As Integer
   Dim nSubDir    As Integer
   Dim nSystem    As Integer
   Dim FileAttrib As FileAttributeType
   Tmp1 = ""
   Tmp = "TEST.DAT"
   Call CreateFile
   j = cFileSetAllAttrib(Tmp)
   j = cFileResetArchive(Tmp)
   j = cFileGetAttrib(Tmp, FileAttrib)
   Tmp1 = "File " & Tmp & " has been reset with" & vbCr
   Tmp1 = Tmp1 & " flag archive" & vbCr & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFileResetArchive(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileResetHidden()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim nArchive   As Integer
   Dim nHidden    As Integer
   Dim nReadOnly  As Integer
   Dim nSubDir    As Integer
   Dim nSystem    As Integer
   Dim FileAttrib As FileAttributeType
   Tmp1 = ""
   Tmp = "TEST.DAT"
   Call CreateFile
   j = cFileSetAllAttrib(Tmp)
   j = cFileResetHidden(Tmp)
   j = cFileGetAttrib(Tmp, FileAttrib)
   Tmp1 = "File " & Tmp & " has been reset with" & vbCr
   Tmp1 = Tmp1 & " flag hidden" & vbCr & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFileResetHidden(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileResetReadOnly()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim FileAttrib As FileAttributeType
   Dim nArchive   As Integer
   Dim nHidden    As Integer
   Dim nReadOnly  As Integer
   Dim nSubDir    As Integer
   Dim nSystem    As Integer
   Tmp1 = ""
   Tmp = "TEST.DAT"
   Call CreateFile
   j = cFileSetAllAttrib(Tmp)
   j = cFileResetReadOnly(Tmp)
   j = cFileGetAttrib(Tmp, FileAttrib)
   Tmp1 = "File " & Tmp & " has been reset with" & vbCr
   Tmp1 = Tmp1 & " flag read-only" & vbCr & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFileResetReadOnly(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileResetSystem()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim FileAttrib As FileAttributeType
   Tmp1 = ""
   Tmp = "TEST.DAT"
   Call CreateFile
   j = cFileSetAllAttrib(Tmp)
   j = cFileResetSystem(Tmp)
   j = cFileGetAttrib(Tmp, FileAttrib)
   Tmp1 = "File " & Tmp & " has been reset with" & vbCr
   Tmp1 = Tmp1 & " flag system" & vbCr & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFileResetSystem(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileS()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim Tmp4       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp3 = "re"
   Tmp4 = "SET"
   Tmp1 = Tmp1 & "File Search (insensitive) : '" & Tmp3 & "' in '" & Tmp & "' is " & cFileSearch(Tmp, Tmp3, False) & vbCr & vbCr
   Tmp1 = Tmp1 & "File Search and Count (insensitive) : '" & Tmp3 & "' in '" & Tmp & "' is " & cFileSearchCount(Tmp, Tmp3, False) & vbCr & vbCr
   Tmp1 = Tmp1 & "File Search (insensitive) : '" & Tmp4 & "' in '" & Tmp & "' is " & cFileSearch(Tmp, Tmp4, False) & vbCr & vbCr
   Tmp1 = Tmp1 & "File Search and Count (insensitive) : '" & Tmp4 & "' in '" & Tmp & "' is " & cFileSearchCount(Tmp, Tmp4, False) & vbCr & vbCr
   Tmp1 = Tmp1 & "File Search (sensitive) : '" & Tmp3 & "' in '" & Tmp & "' is " & cFileSearch(Tmp, Tmp3, True) & vbCr & vbCr
   Tmp1 = Tmp1 & "File Search and Count (sensitive) : '" & Tmp3 & "' in '" & Tmp & "' is " & cFileSearchCount(Tmp, Tmp3, True) & vbCr & vbCr
   Tmp1 = Tmp1 & "File Search (sensitive) : '" & Tmp4 & "' in '" & Tmp & "' is " & cFileSearch(Tmp, Tmp4, True) & vbCr & vbCr
   Tmp1 = Tmp1 & "File Search and Count (sensitive) : '" & Tmp4 & "' in '" & Tmp & "' is " & cFileSearchCount(Tmp, Tmp4, True) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      If ((i Mod 2) = 1) Then
         j = cFileSearch(Tmp, Tmp3, False)
      Else
         j = cFileSearchCount(Tmp, Tmp3, False)
      End If
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileSetAllAttrib()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim FileAttrib As FileAttributeType
   Tmp1 = ""
   Tmp = "TEST.DAT"
   Call CreateFile
   j = cFileSetAllAttrib(Tmp)
   j = cFileGetAttrib(Tmp, FileAttrib)
   Tmp1 = "File " & Tmp & " has been set with" & vbCr
   Tmp1 = Tmp1 & " flag archive" & vbCr
   Tmp1 = Tmp1 & " flag hidden" & vbCr
   Tmp1 = Tmp1 & " flag read-only" & vbCr
   Tmp1 = Tmp1 & " flag system" & vbCr & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFileSetAllAttrib(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileSetArchive()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim FileAttrib As FileAttributeType
   Tmp1 = ""
   Tmp = "TEST.DAT"
   Call CreateFile
   j = cFileSetArchive(Tmp)
   j = cFileGetAttrib(Tmp, FileAttrib)
   Tmp1 = "File " & Tmp & " has been set with" & vbCr
   Tmp1 = Tmp1 & " flag archive" & vbCr & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFileSetArchive(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileSetAttrib()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim FileAttrib As FileAttributeType
   Tmp1 = ""
   Tmp = "TEST.DAT"
   Call CreateFile
   FileAttrib.Archive = False
   FileAttrib.Hidden = True
   FileAttrib.ReadOnly = True
   FileAttrib.System = True
   j = cFileSetAttrib(Tmp, FileAttrib)
   j = cFileGetAttrib(Tmp, FileAttrib)
   Tmp1 = "File " & Tmp & " has been set with" & vbCr
   Tmp1 = Tmp1 & " flag hidden" & vbCr
   Tmp1 = Tmp1 & " flag read-only" & vbCr
   Tmp1 = Tmp1 & " flag system" & vbCr & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFileSetAttrib(Tmp, FileAttrib)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileSetHidden()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim FileAttrib As FileAttributeType
   Tmp1 = ""
   Tmp = "TEST.DAT"
   Call CreateFile
   j = cFileSetHidden(Tmp)
   j = cFileGetAttrib(Tmp, FileAttrib)
   Tmp1 = "File " & Tmp & " has been set with" & vbCr
   Tmp1 = Tmp1 & " flag hidden" & vbCr & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFileSetHidden(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileSetReadOnly()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim FileAttrib As FileAttributeType
   Tmp1 = ""
   Tmp = "TEST.DAT"
   Call CreateFile
   j = cFileSetReadOnly(Tmp)
   j = cFileGetAttrib(Tmp, FileAttrib)
   Tmp1 = "File " & Tmp & " has been set with" & vbCr
   Tmp1 = Tmp1 & " flag read-only" & vbCr & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFileSetReadOnly(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileSetSystem()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim FileAttrib As FileAttributeType
   Tmp1 = ""
   Tmp = "TEST.DAT"
   Call CreateFile
   j = cFileSetSystem(Tmp)
   j = cFileGetAttrib(Tmp, FileAttrib)
   Tmp1 = "File " & Tmp & " has been set with" & vbCr
   Tmp1 = Tmp1 & " flag system" & vbCr & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Archive, " is Archive", " is not Archive") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.Hidden, " is Hidden", " is not Hidden") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.ReadOnly, " is ReadOnly", " is not ReadOnly") & vbCr
   Tmp1 = Tmp1 & "File " & Tmp & IIf(FileAttrib.System, " is System", " is not System") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFileSetSystem(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFilesInDirectory()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Title = "The 10 first files in this directory are" & vbCr & vbCr
   Tmp1 = Title
   Tmp2 = cFilesInDirectory("*.*", True)
   For i = 1 To 10
      Tmp1 = Tmp1 & Tmp2 & vbCr
      Tmp2 = cFilesInDirectory("*.*", False)
   Next i
   Tmp1 = Tmp1 & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp = cFilesInDirectory("*.*", True)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFilesInDirOnDisk()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   j = cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_ALL)
   Tmp1 = "The files (any attributes) in 'C:\' are (" & j & ") see first list" & vbCr & vbCr
   j = cFileToListBox(List1.hWnd, "c:\test.tmp")
   j = cFilesInDirOnDisk("c:\test1.tmp", "c:\*.*", -A_ARCH)
   Tmp1 = Tmp1 & "The files (only archive, not other attribute) in 'C:\' are (" & j & ") see second list" & vbCr & vbCr
   j = cFileToListBox(List2.hWnd, "c:\test1.tmp")
   Tmp1 = Tmp1 & "Number of files (with at least one of the following attribute)" & vbCr & vbCr
   Tmp1 = Tmp1 & "Any : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_ALL) & vbCr
   Tmp1 = Tmp1 & "(N)ormal : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_NORMAL) & vbCr
   Tmp1 = Tmp1 & "(A)rchive, (N)ormal : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_NORMAL_ARCHIVE) & vbCr
   Tmp1 = Tmp1 & "(A)rchive : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_ARCH) & vbCr
   Tmp1 = Tmp1 & "(A)rchive, (R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_ARCH Or A_RDONLY) & vbCr
   Tmp1 = Tmp1 & "(S)ystem, (H)idden, (R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_SYSTEM Or A_HIDDEN Or A_RDONLY) & vbCr
   Tmp1 = Tmp1 & "(H)idden, (R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_HIDDEN Or A_RDONLY) & vbCr
   Tmp1 = Tmp1 & "(R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_RDONLY) & vbCr
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Number of files (with exact attribute excluding all others)" & vbCr & vbCr
   Tmp1 = Tmp1 & "(N)ormal : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", -(A_NORMAL)) & vbCr
   Tmp1 = Tmp1 & "(A)rchive : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", -(A_ARCH)) & vbCr
   Tmp1 = Tmp1 & "(A)rchive, (R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", -(A_ARCH Or A_RDONLY)) & vbCr
   Tmp1 = Tmp1 & "(S)ystem, (H)idden, (R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", -(A_SYSTEM Or A_HIDDEN Or A_RDONLY)) & vbCr
   Tmp1 = Tmp1 & "(H)idden, (R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", -(A_HIDDEN Or A_RDONLY)) & vbCr
   Tmp1 = Tmp1 & "(R)ead-Only : " & cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", -(A_RDONLY)) & vbCr
   Tmp1 = Tmp1 & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cFilesInDirOnDisk("c:\test.tmp", "c:\*.*", A_ALL)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFilesInDirToArray()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Long
   Dim r          As Integer
   Dim m1         As Integer
   Dim m2         As Integer
   m1 = -999
   m2 = 1000
   ReDim AD(m1 To m2) As String
   ' initialization because we use ReDim without Global definition
   'For i = m1 To m2
   '   AD(i) = Space$(256)
   'Next i
   r = cFilesInDirToArray("C:\*.*", A_ALL, AD())
   Tmp1 = "Reading directory 'C:\*.*' into AD(" & m1 & " To " & m2 & ") is '" & r & "'" & vbCr
   Tmp1 = Tmp1 & "   The 3 (on " & r & ") first files in array are : " & vbCr & vbCr
   For i = 0 To 2
      Tmp1 = Tmp1 & AD(m1 + i) & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "   The 3 (on " & r & ") last files in array are : " & vbCr & vbCr
   For i = 0 To 2
      Tmp1 = Tmp1 & AD(m1 + r - 1 - 2 + i) & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   r = cArrayToListBox(List1.hWnd, AD())
   Tmp2 = cGetDefaultCurrentDir()
   r = cFilesInDirToArray("*.*", A_ALL, AD())
   Tmp1 = Tmp1 & "Reading directory '" & Tmp2 & "' into AD(" & m1 & " To " & m2 & ") is '" & r & "'" & vbCr
   Tmp1 = Tmp1 & "   The 3 (on " & r & ") first files in array are : " & vbCr & vbCr
   For i = 0 To 2
      Tmp1 = Tmp1 & AD(m1 + i) & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "   The 3 (on " & r & ") last files in array are : " & vbCr & vbCr
   For i = 0 To 2
      Tmp1 = Tmp1 & AD(m1 + r - 1 - 2 + i) & vbCr
   Next i
   r = cArrayToListBox(List2.hWnd, AD())
   cStartBasisTimer
   For i = 1 To Item
      r = cFilesInDirToArray("C:\*.*", A_ALL, AD())
   Next i
   Tmp1 = Tmp1 & vbCr & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFilesInfoInDir()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim FI         As tagFILEINFO
   Title = "The 7 first files in the current directory '" & cGetDefaultCurrentDir() & "' are" & vbCr & vbCr
   Tmp1 = Title
   Tmp2 = cFilesInfoInDir("*.*", FI, True)
   For i = 1 To 7
      Tmp1 = Tmp1 & Tmp2 & ", " & FI.fSize & ", " & FI.fDate & ", " & FI.fTime & ", " & FI.fAttribute & vbCr
      Tmp2 = cFilesInfoInDir("*.*", FI, False)
   Next i
   Tmp1 = Tmp1 & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp = cFilesInfoInDir("*.*", FI, True)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileSize()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Tmp1 = "File size for t2win-16.dll is " & cFileSize("t2win-16.dll") & vbCr & vbCr
   Tmp1 = Tmp1 & "File size for Path \windows " & cFileSize("\windows") & vbCr & vbCr
   Tmp1 = Tmp1 & "File size for Path \windows\wintime " & cFileSize("\windows\wintime") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      k = cFileSize("t2win-16.dll")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileSort(SortMethod As Integer, VarFix As Integer)
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim n          As Integer
   Dim m          As Double
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\ae" & Format$(SortMethod) & ".tab"
   Close #1
   Open Tmp For Input Shared As #1
   While Not EOF(1)
      Line Input #1, Tmp3
      List1.AddItem Tmp3
   Wend
   Close #1
   If (VarFix = False) Then
      j = cFileSort("c:\autoexec.bat", Tmp2, SortMethod, -1, -1, -1, n)
   Else
      'j = cFileSort("c:\autoexec.bat", Tmp2, SortMethod, 20, 0, 10, n)
      j = cFileSort("c:\tmp\_dat_hr.Dat", "c:\tmp\tmp" & SortMethod & ".tmp", SortMethod, 50, 0, 11, n)
   End If
   Close #1
   Open Tmp2 For Input Shared As #1
   While Not EOF(1)
      Line Input #1, Tmp3
      List2.AddItem Tmp3
   Wend
   Close #1
   Select Case SortMethod
      Case (SORT_ASCENDING + SORT_CASE_SENSITIVE):
         Tmp1 = Tmp1 + "Sort '" & Tmp & "' into '" & Tmp2 & "' in ASC and CS is '" & j & "' and records are '" & n & "'"
      Case (SORT_DESCENDING + SORT_CASE_SENSITIVE):
         Tmp1 = Tmp1 + "Sort '" & Tmp & "' into '" & Tmp2 & "' in DSC and CS is '" & j & "' and records are '" & n & "'"
      Case (SORT_ASCENDING + SORT_CASE_INSENSITIVE):
         Tmp1 = Tmp1 + "Sort '" & Tmp & "' into '" & Tmp2 & "' in ASC and NS is '" & j & "' and records are '" & n & "'"
      Case (SORT_DESCENDING + SORT_CASE_INSENSITIVE):
         Tmp1 = Tmp1 + "Sort '" & Tmp & "' into '" & Tmp2 & "' in DSC and NS is '" & j & "' and records are '" & n & "'"
   End Select
   Tmp1 = Tmp1 & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFileSort(Tmp, Tmp2, SortMethod, -1, -1, -1, n)
      DoEvents
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileSR()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim Tmp4       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\autoexec.tab"
   Tmp3 = "SET "
   Tmp4 = "rem SET "
   Tmp1 = Tmp1 & "File Copy " & Tmp & " to " & Tmp2 & " is " & cFileCopy(Tmp, Tmp2) & vbCr & vbCr
   Tmp1 = Tmp1 & "File Search-Replace (insensitive) : '" & Tmp3 & "' -> '" & Tmp4 & "' in '" & Tmp2 & "' is " & cFileSearchAndReplace(Tmp2, Tmp3, Tmp4, "c:\tmp.tmp", False) & vbCr & vbCr
   Tmp1 = Tmp1 & "File Search-Replace (sensitive) : '" & Tmp4 & "' -> '" & Tmp3 & "' in '" & Tmp2 & "' is " & cFileSearchAndReplace(Tmp2, Tmp4, Tmp3, "c:\tmp.tmp", True) & vbCr & vbCr
   Tmp1 = Tmp1 & "Compare file contents (insensitive) " & Tmp2 & " with " & Tmp & " is " & IIf(cCmpFileContents(Tmp2, Tmp, False) = True, "same", "not same") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      If ((i Mod 2) = 1) Then
         j = cFileSearchAndReplace(Tmp2, Tmp3, Tmp4, "", True)
      Else
         j = cFileSearchAndReplace(Tmp2, Tmp4, Tmp3, "", True)
      End If
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestFilesSize()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim Size1      As Double
   Dim Size2      As Double
   Tmp1 = ""
   Tmp1 = Tmp1 & "Size of files c:\*.* is " & cFilesSize("c:\*.*") & vbCr
   Tmp1 = Tmp1 & "Size of files c:\*.bat is " & cFilesSize("c:\*.bat") & vbCr
   Tmp1 = Tmp1 & "Size of files c:\*.sys is " & cFilesSize("c:\*.sys") & vbCr
   Tmp1 = Tmp1 & "Size of files c:\*.com is " & cFilesSize("c:\*.com") & vbCr
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Size of files c:\*.* on disk is " & cFilesSizeOnDisk("c:\*.*") & vbCr
   Tmp1 = Tmp1 & "Size of files c:\*.bat on disk is " & cFilesSizeOnDisk("c:\*.bat") & vbCr
   Tmp1 = Tmp1 & "Size of files c:\*.sys on disk is " & cFilesSizeOnDisk("c:\*.sys") & vbCr
   Tmp1 = Tmp1 & "Size of files c:\*.com on disk is " & cFilesSizeOnDisk("c:\*.com") & vbCr
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Slack of files c:\*.* on disk is " & cFilesSlack("c:\*.*", Size1, Size2) & " %" & vbCr
   Tmp1 = Tmp1 & "Slack of files c:\*.bat on disk is " & cFilesSlack("c:\*.bat", Size1, Size2) & " %" & vbCr
   Tmp1 = Tmp1 & "Slack of files c:\*.sys on disk is " & cFilesSlack("c:\*.sys", Size1, Size2) & " %" & vbCr
   Tmp1 = Tmp1 & "Slack of files c:\*.com on disk is " & cFilesSlack("c:\*.com", Size1, Size2) & " %" & vbCr
   cStartBasisTimer
   For i = 1 To 10
      k = cFilesSize("c:\*.*")
   Next i
   Tmp1 = Tmp1 & "speed for " & 10 & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileStatictics()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim Tmp4       As String
   Dim i          As Integer
   Dim j          As Long
   Dim nL         As Long
   Dim nW         As Long
   Dim nC         As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp1 = Tmp1 & "File statictics for '" & Tmp & "' is " & cFileStatistics(Tmp, nL, nW, nC) & vbCr
   Tmp1 = Tmp1 & "number of lines : " & nL & vbCr
   Tmp1 = Tmp1 & "number of words : " & nW & vbCr
   Tmp1 = Tmp1 & "number of chars : " & nC & vbCr & vbCr
   Tmp = "c:\config.sys"
   Tmp1 = Tmp1 & "File statictics for '" & Tmp & "' is " & cFileStatistics(Tmp, nL, nW, nC) & vbCr
   Tmp1 = Tmp1 & "number of lines : " & nL & vbCr
   Tmp1 = Tmp1 & "number of words : " & nW & vbCr
   Tmp1 = Tmp1 & "number of chars : " & nC & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cFileStatistics(Tmp, nL, nW, nC)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileStatistic()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Tmp1 = "File drive for t2win-16.dll is " & cFileDrive("t2win-16.dll") & vbCr & vbCr
   Tmp1 = Tmp1 & "File last time modified for t2win-16.dll is " & cFileLastTimeModified("t2win-16.dll") & vbCr & vbCr
   Tmp1 = Tmp1 & "File last date modified for t2win-16.dll is " & cFileLastDateModified("t2win-16.dll") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Tmp = cFileDrive("t2win-16.dll")
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileToX()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "c:\autoexec.bat"
   Tmp2 = "c:\autoexec.lwr"
   Tmp3 = "c:\autoexec.upr"
   Tmp1 = Tmp1 & "File to lower '" & Tmp & "' to '" & Tmp2 & "' is " & cFileToLower(Tmp, Tmp2) & vbCr & vbCr
   Tmp1 = Tmp1 & "File to upper '" & Tmp & "' to '" & Tmp3 & "' is " & cFileToUpper(Tmp, Tmp3) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cFileToLower(Tmp, Tmp2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileVersion()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim status                 As Integer
   Tmp = cGetSystemDirectory() & "\krnl386.exe"
   Tmp1 = Tmp1 & "File Version for '" & Tmp & "' is " & vbCr
   For i = VER_VERSION_PRODUCT To VER_PRODUCT_VERSION
      Tmp1 = Tmp1 & "   " & i & " = " & cGetFileVersion(Tmp, i) & vbCr
   Next i
   Tmp = cGetSystemDirectory() & "\t2win-16.dll"
   Tmp1 = Tmp1 & "File Version for '" & Tmp & "' is " & vbCr
   For i = VER_VERSION_PRODUCT To VER_PRODUCT_VERSION
      Tmp1 = Tmp1 & "   " & i & " = " & cGetFileVersion(Tmp, i) & vbCr
   Next i
   cStartBasisTimer
   For i = 1 To ItemFile
      Tmp = cGetFileVersion(Tmp, -1)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFileVersionInfo()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim status                 As Integer
   Dim FILEVERSIONINFO     As tagFILEVERSIONINFO
   Tmp = cGetSystemDirectory() & "\krnl386.exe"
   Tmp1 = Tmp1 & "File Version Information for '" & Tmp & "' is " & vbCr
   status = cGetFileVersionInfo(Tmp, FILEVERSIONINFO)
   Tmp1 = Tmp1 & "   VersionProduct = " & FILEVERSIONINFO.VersionProduct & vbCr
   Tmp1 = Tmp1 & "   FileDescription = " & FILEVERSIONINFO.FileDescription & vbCr
   Tmp1 = Tmp1 & "   FileVersion = " & FILEVERSIONINFO.FileVersion & vbCr
   Tmp1 = Tmp1 & "   InternalName = " & FILEVERSIONINFO.InternalName & vbCr
   Tmp1 = Tmp1 & "   LegalCopyright = " & FILEVERSIONINFO.LegalCopyright & vbCr
   Tmp1 = Tmp1 & "   LegalTrademarks = " & FILEVERSIONINFO.LegalTrademarks & vbCr
   Tmp1 = Tmp1 & "   Comments = " & FILEVERSIONINFO.Comments & vbCr
   Tmp1 = Tmp1 & "   ProductName = " & FILEVERSIONINFO.ProductName & vbCr
   Tmp1 = Tmp1 & "   ProductVersion = " & FILEVERSIONINFO.ProductVersion & vbCr & vbCr
   Tmp = cGetSystemDirectory() & "\t2win-16.dll"
   Tmp1 = Tmp1 & "File Version Information for '" & Tmp & "' is " & vbCr
   status = cGetFileVersionInfo(Tmp, FILEVERSIONINFO)
   Tmp1 = Tmp1 & "   VersionProduct = " & FILEVERSIONINFO.VersionProduct & vbCr
   Tmp1 = Tmp1 & "   FileDescription = " & FILEVERSIONINFO.FileDescription & vbCr
   Tmp1 = Tmp1 & "   FileVersion = " & FILEVERSIONINFO.FileVersion & vbCr
   Tmp1 = Tmp1 & "   InternalName = " & FILEVERSIONINFO.InternalName & vbCr
   Tmp1 = Tmp1 & "   LegalCopyright = " & FILEVERSIONINFO.LegalCopyright & vbCr
   Tmp1 = Tmp1 & "   LegalTrademarks = " & FILEVERSIONINFO.LegalTrademarks & vbCr
   Tmp1 = Tmp1 & "   Comments = " & FILEVERSIONINFO.Comments & vbCr
   Tmp1 = Tmp1 & "   ProductName = " & FILEVERSIONINFO.ProductName & vbCr
   Tmp1 = Tmp1 & "   ProductVersion = " & FILEVERSIONINFO.ProductVersion & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      status = cGetFileVersionInfo(Tmp, FILEVERSIONINFO)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFill()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Fill of [" & Tmp & "] with [*=] is "
   Call cFill(Tmp, "*=")
   Tmp1 = Title & Tmp & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Call cFill(Tmp, "=*")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFillI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Double
   ReDim array(ItemMean) As Integer
   Randomize Timer
   For i = LBound(array) To UBound(array)
      array(i) = 0
      List1.AddItem "" & array(i)
   Next i
   j = cFillI(array(), 1)
   For i = LBound(array) To UBound(array)
      List2.AddItem "" & array(i)
   Next i
   Tmp1 = Tmp1 & "Fill 1 to element 1 of an integer array is : " & array(1) & vbCr & vbCr
   Tmp1 = Tmp1 & "Fill 1 to element " & ItemMean & " of an integer array is : " & array(ItemMean) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFillI(array(), 1)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFillIncrI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Double
   ReDim array(ItemMean) As Integer
   Randomize Timer
   For i = LBound(array) To UBound(array)
      array(i) = 0
      List1.AddItem "" & array(i)
   Next i
   j = cFillIncrI(array(), -2, 3)
   For i = LBound(array) To UBound(array)
      List2.AddItem "" & array(i)
   Next i
   Tmp1 = Tmp1 & "Fill -2 by increment 3 to element 1 of an integer array is : " & array(1) & vbCr & vbCr
   Tmp1 = Tmp1 & "Fill -2 by increment 3 to element " & ItemMean & " of an integer array is : " & array(ItemMean) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFillIncrI(array(), 1, 3)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFilterBlocks()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Filter blocks between '/' and '/' in [" & Tmp & "] is " & vbCr & vbCr
   Tmp1 = Title & cFilterBlocks(Tmp, "//") & vbCr & vbCr
   Title = "Filter blocks between 'B' and 'I' in [" & Tmp & "] is " & vbCr & vbCr
   Tmp1 = Tmp1 & Title & cFilterBlocks(Tmp, "BI") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cFilterBlocks(Tmp, "//")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFilterChars()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Filter 'B','/' in [" & Tmp & "] is "
   Tmp1 = Title & cFilterChars(Tmp, "B/") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cFilterChars(Tmp, "B/")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFindBitReset()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Tmp1 = "The following bits on '" & Tmp & "' are not Set (False) " & vbCr & vbCr
   j = True
   Do
      j = cFindBitReset(Tmp, j)
      If (j <> True) Then Tmp1 = Tmp1 & j & ", "
   Loop Until (j = True)
   Tmp1 = Left$(Tmp1, Len(Tmp1) - 1)
   Tmp1 = Tmp1 & vbCr & vbCr
   j = 0
   cStartBasisTimer
   For i = 1 To Item
      j = cFindBitReset(Tmp, j)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFindBitSet()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Tmp1 = "The following bits on '" & Tmp & "' are Set (True) " & vbCr & vbCr
   j = True
   Do
      j = cFindBitSet(Tmp, j)
      If (j <> True) Then Tmp1 = Tmp1 & j & ", "
   Loop Until (j = True)
   Tmp1 = Left$(Tmp1, Len(Tmp1) - 1)
   Tmp1 = Tmp1 & vbCr & vbCr
   j = 0
   cStartBasisTimer
   For i = 1 To Item
      j = cFindBitSet(Tmp, j)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFindFileInEnv()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   j = cFindFileInEnv("win.com", "windir")
   Tmp1 = "The file 'win.com' is " & IIf(j, "found", "not found") & " in the WINDIR" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFindFileInEnv("win.com", "windir")
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFindFileInPath()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   j = cFindFileInPath("win.com")
   Tmp1 = "The file 'win.com' is " & IIf(j, "found", "not found") & " in the PATH" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cFindFileInPath("win.com")
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFloppyInfo()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim nHds       As Integer
   Dim nCyls      As Integer
   Dim nSecs      As Integer
   Tmp1 = ""
   For i = 1 To 3
      j = cFloppyInfo(Chr$(64 + i), nHds, nCyls, nSecs)
      Tmp1 = Tmp1 & "'" & Chr$(64 + i) & ":' is " & j & " (" & nHds & "," & nCyls & "," & nSecs & ")" & vbCr
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cFloppyInfo("A", nHds, nCyls, nSecs)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFraction()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim v          As Double
   Dim n          As Double
   Dim p          As Double
   Dim q          As Double
   Dim e          As Integer
   Tmp1 = "Determining fraction part (numerator/denominator) for the following value " & vbCr & vbCr
   n = 0.75
   v = cFraction(n, p, q)
   Tmp1 = Tmp1 & n & " is " & p & " / " & q & vbCr
   Tmp1 = Tmp1 & "   value is " & v & vbCr & vbCr
   n = 4.12
   v = cFraction(n, p, q)
   Tmp1 = Tmp1 & n & " is " & p & " / " & q & vbCr
   Tmp1 = Tmp1 & "   value is " & v & vbCr & vbCr
   n = 365.25
   v = cFraction(n, p, q)
   Tmp1 = Tmp1 & n & " is " & p & " / " & q & vbCr
   Tmp1 = Tmp1 & "   value is " & v & vbCr & vbCr
   n = 3.14
   v = cFraction(n, p, q)
   Tmp1 = Tmp1 & n & " is " & p & " / " & q & vbCr
   Tmp1 = Tmp1 & "   value is " & v & vbCr & vbCr
   n = 3.14159
   v = cFraction(n, p, q)
   Tmp1 = Tmp1 & n & " is " & p & " / " & q & vbCr
   Tmp1 = Tmp1 & "   value is " & v & vbCr & vbCr
   n = 3.14159265
   v = cFraction(n, p, q)
   Tmp1 = Tmp1 & n & " is " & p & " / " & q & vbCr
   Tmp1 = Tmp1 & "   value is " & v & vbCr & vbCr
   n = 0.9999999
   v = cFraction(n, p, q)
   Tmp1 = Tmp1 & n & " is " & p & " / " & q & vbCr
   Tmp1 = Tmp1 & "   value is " & v & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      v = cFraction(n, p, q)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestFullPath()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "C:\AUTOEXEC.BAT"
   Tmp1 = Tmp1 & "Full Path of " & Tmp & " is " & cFullPath(Tmp) & vbCr & vbCr
   Tmp = cGetSystemDirectory() & "\t2win-16.dll"
   Tmp1 = Tmp1 & "Full Path of " & Tmp & " is " & cFullPath(Tmp) & vbCr & vbCr
   Tmp = cFilesInDirectory(cGetDefaultCurrentDir() + "\*.*", True)
   Tmp1 = Tmp1 & "Full Path of " & Tmp & " is " & cFullPath(Tmp) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp = cFullPath(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetBit()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "bit 0,7,3 of [" & Tmp & "] is "
   Tmp1 = Title & cGetBit(Tmp, 0) & " " & cGetBit(Tmp, 7) & " " & cGetBit(Tmp, 3) & " " & vbCr & vbCr
   Title = "bit 23,30,38 of [" & Tmp & "] is "
   Tmp1 = Tmp1 & Title & cGetBit(Tmp, 23) & " " & cGetBit(Tmp, 30) & " " & cGetBit(Tmp, 38) & " " & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cGetBit(Tmp, i)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetBlock()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "The 2,4,1 of 2 chars of [" & Tmp & "] are "
   Tmp = Text1.Text
   Tmp1 = Title & "2:" & cGetBlock(Tmp, 2, 2) & " | 4:" & cGetBlock(Tmp, 4, 2) & " | 1:" & cGetBlock(Tmp, 1, 2) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cGetBlock(Tmp, 1, 2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetCurrentDrive()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = cGetCurrentDrive()
   Tmp1 = Tmp & " is the current drive" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cGetCurrentDrive()
      If (Tmp <> Tmp2) Then Beep
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetDateSeparator()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = cGetDateSeparator()
   Tmp1 = "The following char '" & Tmp & "' is the date separator" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cGetDateSeparator()
      If (Tmp <> Tmp2) Then Beep
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetDefaultCurrentDir()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = cGetDefaultCurrentDir()
   Tmp1 = Tmp & " is the current dir on the default drive" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cGetDefaultCurrentDir()
      If (Tmp <> Tmp2) Then Beep
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetDiskFree()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim ErrCode    As Integer
   Tmp1 = ""
   For i = 1 To 26
      k = cGetDiskFree(Chr$(64 + i))
      If (k <> True) Then
         Tmp1 = Tmp1 & "DiskFree for '" & Chr$(64 + i) & ":' is " & k & vbCr
      End If
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      k = cGetDiskFree("C")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetDiskSpace()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim ErrCode    As Integer
   Tmp1 = ""
   For i = 1 To 26
      k = cGetDiskSpace(Chr$(64 + i))
      If (k <> True) Then
         Tmp1 = Tmp1 & "DiskSpace for '" & Chr$(64 + i) & ":' is " & k & vbCr
      End If
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      k = cGetDiskSpace("C")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetDiskUsed()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim ErrCode    As Integer
   Tmp1 = ""
   For i = 1 To 26
      k = cGetDiskUsed(Chr$(64 + i))
      If (k <> True) Then
         Tmp1 = Tmp1 & "DiskUsed for '" & Chr$(64 + i) & ":' is " & k & vbCr
      End If
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      k = cGetDiskUsed("C")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetDriveCurrentDir()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = ""
   For i = 1 To 26
      Tmp = cGetDriveCurrentDir(Chr$(64 + i))
      If (Tmp <> "") Then
         Tmp1 = Tmp1 & "The current directory in '" & Chr$(64 + i) & ":' is " & Tmp & vbCr
      Else
         If (i = 1) Then Tmp1 = Tmp1 & "drive A: is missing" & vbCr
         If (i = 2) Then Tmp1 = Tmp1 & "drive B: is missing" & vbCr
      End If
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cGetDriveCurrentDir("C")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetFullnameInEnv()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = cGetFullNameInEnv("win.com", "windir")
   Tmp1 = "Full path for 'win.com' in 'windir' is " & Tmp & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Tmp2 = cGetFullNameInEnv("win.com", "windir")
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetFullnameInPath()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = cGetFullNameInPath("win.com")
   Tmp1 = "Full path for 'win.com' is " & Tmp & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Tmp2 = cGetFullNameInPath("win.com")
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetIn()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "The 2,4,1 blocks of [" & Tmp & "] are "
   Tmp = Text1.Text
   Tmp1 = Title & "2:" & cGetIn(Tmp, "/", 2) & " | 4:" & cGetIn(Tmp, "/", 4) & " | 1:" & cGetIn(Tmp, "/", 1) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cGetIn(Tmp, "/", 2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetInR()

   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Tmp1 = Tmp1 + "GetInR" & vbCr
   Tmp1 = Tmp1 + "The 2,4,1 blocks from the right of [" & Tmp & "] are "
   Tmp1 = Tmp1 & "2:" & cGetInR(Tmp, "/", 2) & " | 4:" & cGetInR(Tmp, "/", 4) & " | 1:" & cGetInR(Tmp, "/", 1) & vbCr & vbCr
   Tmp1 = Tmp1 + "GetInPart" & vbCr
   Tmp1 = Tmp1 + "The first and the second part from the left of [" & Tmp & "] are " & vbCr
   Tmp1 = Tmp1 & cGetInPart(Tmp, "/", True) & " | " & cGetInPart(Tmp, "/", False) & vbCr & vbCr
   Tmp1 = Tmp1 + "GetInPartR" & vbCr
   Tmp1 = Tmp1 + "The first and the second part from the right of [" & Tmp & "] are " & vbCr
   Tmp1 = Tmp1 & cGetInPartR(Tmp, "/", True) & " | " & cGetInPartR(Tmp, "/", False) & vbCr & vbCr
   Tmp = UCase$("c:\vberr.hnd\source.mak\vbtrcprf.mak")
   Tmp1 = Tmp1 + "GetInPart" & vbCr
   Tmp1 = Tmp1 + "The first and the second part from the left of [" & Tmp & "] are " & vbCr
   Tmp1 = Tmp1 & cGetInPart(Tmp, ".", True) & " | " & cGetInPart(Tmp, ".", False) & vbCr & vbCr
   Tmp1 = Tmp1 + "GetInPartR" & vbCr
   Tmp1 = Tmp1 + "The first and the second part from the right of [" & Tmp & "] are " & vbCr
   Tmp1 = Tmp1 & cGetInPartR(Tmp, ".", True) & " | " & cGetInPartR(Tmp, ".", False) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cGetInR(Tmp, "/", 2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetNetConnection()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim ErrCode    As Integer
   Tmp1 = ""
   For i = 1 To 26
      Tmp = cGetNetConnection(Chr$(64 + i) & ":", ErrCode)
      If (ErrCode = True) Then
         Tmp1 = Tmp1 & "'" & Chr$(64 + i) & ":' is " & Tmp & vbCr
      End If
   Next i
   For i = 1 To 3
      Tmp = cGetNetConnection("LPT" & i & ":", ErrCode)
      If (ErrCode = True) Then
         Tmp1 = Tmp1 & "'LPT" & i & ":' is " & Tmp & vbCr
      End If
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Tmp = cGetNetConnection("C", ErrCode)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetSystemDirectory()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = cGetSystemDirectory()
   Tmp1 = Tmp & " is the system directory for Windows" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cGetSystemDirectory()
      If (Tmp <> Tmp2) Then Beep
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetTimeSeparator()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = cGetTimeSeparator()
   Tmp1 = "The following char '" & Tmp & "' is the time separator" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cGetTimeSeparator()
      If (Tmp <> Tmp2) Then Beep
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGetWindowsDirectory()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = cGetWindowsDirectory()
   Tmp1 = Tmp & " is the directory for Windows" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cGetWindowsDirectory()
      If (Tmp <> Tmp2) Then Beep
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGiveBitPalindrome()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Title = "The followings chars are Bit Palindrome : " & vbCr & vbCr
   Tmp1 = Tmp1 & Title & "chr(0) and  " & cBlockCharFromRight(cGiveBitPalindrome(), 1) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cGiveBitPalindrome()
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestHideAllEditForm()
   Dim n       As Integer
   Dim Tmp     As String
   If (cHideAllEditForm() = True) Then
      Tmp = "HideAllEditForm SUCCESS"
   Else
      Tmp = "HideAllEditForm FAIL"
   End If
   Tmp = Tmp & vbCr & "Waiting 2 seconds" & vbCr
   Label3.Caption = Tmp
   DoEvents
   n = cSleep(2000)
   If (cUnHideAllEditForm() = True) Then
      Tmp = Tmp & "UnHideAllEditForm SUCCESS"
   Else
      Tmp = Tmp & "UnHideAllEditForm FAIL"
   End If
   Label3.Caption = Tmp
End Sub
Private Sub TestHideDebugForm()
   Dim n       As Integer
   Dim Tmp     As String
   If (cHideDebugForm() = True) Then
      Tmp = "HideDebugForm SUCCESS"
   Else
      Tmp = "HideDebugForm FAIL"
   End If
   Tmp = Tmp & vbCr & "Waiting 2 seconds" & vbCr
   Label3.Caption = Tmp
   DoEvents
   n = cSleep(2000)
   If (cUnHideDebugForm() = True) Then
      Tmp = Tmp & "UnHideDebugForm SUCCESS"
   Else
      Tmp = Tmp & "UnHideDebugForm FAIL"
   End If
   Label3.Caption = Tmp
End Sub
Private Sub TestHMAL(Management As Integer)
   Dim Tmp        As String
   Dim ErrCode    As Integer
   Dim HMA        As tagHMA
   HMA.nType = DA_LONG
   HMA.nIsTyped = False
   HMA.nRows = 100
   HMA.nCols = 100
   HMA.nSheets = 2
   ErrCode = cHMACreate(HMA)
   Tmp = Tmp & "ErrCode = " & ErrCode & vbCr & vbCr
   If (ErrCode = True) Then

      Tmp = Tmp & "HMA.daSize       = " & HMA.daSize & vbCr
      Tmp = Tmp & "HMA.nType        = " & HMA.nType & vbCr
      Tmp = Tmp & "HMA.nIsTyped     = " & HMA.nIsTyped & vbCr
      Tmp = Tmp & "HMA.nRows        = " & HMA.nRows & vbCr
      Tmp = Tmp & "HMA.nCols        = " & HMA.nCols & vbCr
      Tmp = Tmp & "HMA.nSheets      = " & HMA.nSheets & vbCr
      Tmp = Tmp & "HMA.rHandle      = " & HMA.rHandle & vbCr
      Tmp = Tmp & "HMA.rElementSize = " & HMA.rElementSize & vbCr
      Tmp = Tmp & "HMA.rMemorySize  = " & HMA.rMemorySize & vbCr
      Tmp = Tmp & "HMA.rParts       = " & HMA.rParts & vbCr
      Tmp = Tmp & "HMA.rRemain      = " & HMA.rRemain & vbCr
      Tmp = Tmp & "HMA.rSheetSize   = " & HMA.rSheetSize & vbCr & vbCr

      Call cHMAPut(HMA, 1, 1, 1, 12345)
      Call cHMAPut(HMA, HMA.nRows, HMA.nCols, 1, 98765)

      Call cHMAPut(HMA, 1, HMA.nCols, 2, 34567890)
      Call cHMAPut(HMA, HMA.nRows, 1, 2, 123456789)
      Tmp = Tmp & "R:1  , C:1  , D:1, Value : " & cHMAGet(HMA, 1, 1, 1) & vbCr
      Tmp = Tmp & "R:" & HMA.nRows & ", C:" & HMA.nCols & ", D:1, Value : " & cHMAGet(HMA, HMA.nRows, HMA.nCols, 1) & vbCr

      Tmp = Tmp & "R:1  , C:" & HMA.nCols & ", D:2, Value : " & cHMAGet(HMA, 1, HMA.nCols, 2) & vbCr
      Tmp = Tmp & "R:" & HMA.nRows & ", C:1  , D:2, Value : " & cHMAGet(HMA, HMA.nRows, 1, 2) & vbCr & vbCr
      If (Management > 0) Then
         Select Case Management
            Case 1         'clear all
               ErrCode = cHMAClear(HMA)
            Case 2         'clear sheet 2
               ErrCode = cHMAClearSheet(HMA, 2)
            Case 3         'clear last row
               ErrCode = cHMAClearRow(HMA, HMA.nRows, 1)
            Case 4         'clear last col
               ErrCode = cHMAClearCol(HMA, HMA.nCols, 1)
            Case 5         'clear last row in all sheets
               ErrCode = cHMAClearRow(HMA, HMA.nRows, -1)
            Case 6         'clear last col in all sheets
               ErrCode = cHMAClearCol(HMA, HMA.nCols, -1)
         End Select
         Tmp = Tmp & "R:1  , C:1  , D:1, Value : " & cHMAGet(HMA, 1, 1, 1) & vbCr
         Tmp = Tmp & "R:" & HMA.nRows & ", C:" & HMA.nCols & ", D:1, Value : " & cHMAGet(HMA, HMA.nRows, HMA.nCols, 1) & vbCr

         Tmp = Tmp & "R:1  , C:" & HMA.nCols & ", D:2, Value : " & cHMAGet(HMA, 1, HMA.nCols, 2) & vbCr
         Tmp = Tmp & "R:" & HMA.nRows & ", C:1  , D:2, Value : " & cHMAGet(HMA, HMA.nRows, 1, 2) & vbCr
      End If
   End If
   ErrCode = cHMAFree(HMA)
   Label3.Caption = Tmp
End Sub
Private Sub TestHMAStr(Management As Integer)
   Dim Tmp        As String
   Dim ErrCode    As Integer
   Dim HMA        As tagHMA
   HMA.nType = 50
   HMA.nIsTyped = False
   HMA.nRows = 100
   HMA.nCols = 100
   HMA.nSheets = 2
   ErrCode = cHMACreate(HMA)
   Tmp = Tmp & "ErrCode = " & ErrCode & vbCr & vbCr
   If (ErrCode = True) Then

      Tmp = Tmp & "HMA.daSize       = " & HMA.daSize & vbCr
      Tmp = Tmp & "HMA.nType        = " & HMA.nType & vbCr
      Tmp = Tmp & "HMA.nIsTyped     = " & HMA.nIsTyped & vbCr
      Tmp = Tmp & "HMA.nRows        = " & HMA.nRows & vbCr
      Tmp = Tmp & "HMA.nCols        = " & HMA.nCols & vbCr
      Tmp = Tmp & "HMA.nSheets      = " & HMA.nSheets & vbCr
      Tmp = Tmp & "HMA.rHandle      = " & HMA.rHandle & vbCr
      Tmp = Tmp & "HMA.rElementSize = " & HMA.rElementSize & vbCr
      Tmp = Tmp & "HMA.rMemorySize  = " & HMA.rMemorySize & vbCr
      Tmp = Tmp & "HMA.rParts       = " & HMA.rParts & vbCr
      Tmp = Tmp & "HMA.rRemain      = " & HMA.rRemain & vbCr
      Tmp = Tmp & "HMA.rSheetSize   = " & HMA.rSheetSize & vbCr & vbCr

      Call cHMAPut(HMA, 1, 1, 1, "D:1, ABCDEFGHIJ")
      Call cHMAPut(HMA, HMA.nRows, HMA.nCols, 1, "D:1, oprqstuvwxyz")

      Call cHMAPut(HMA, 1, HMA.nCols, 2, "D:2, 0987654321")
      Call cHMAPut(HMA, HMA.nRows, 1, 2, "D:2, 12345ABCDE")
      Tmp = Tmp & "R:1  , C:1  , D:1, Value : " & cHMAGet(HMA, 1, 1, 1) & vbCr
      Tmp = Tmp & "R:" & HMA.nRows & ", C:" & HMA.nCols & ", D:1, Value : " & cHMAGet(HMA, HMA.nRows, HMA.nCols, 1) & vbCr

      Tmp = Tmp & "R:1  , C:" & HMA.nCols & ", D:2, Value : " & cHMAGet(HMA, 1, HMA.nCols, 2) & vbCr
      Tmp = Tmp & "R:" & HMA.nRows & ", C:1  , D:2, Value : " & cHMAGet(HMA, HMA.nRows, 1, 2) & vbCr & vbCr
      If (Management > 0) Then
         Select Case Management
            Case 1         'clear all
               ErrCode = cHMAClear(HMA)
            Case 2         'clear sheet 2
               ErrCode = cHMAClearSheet(HMA, 2)
            Case 3         'clear last row
               ErrCode = cHMAClearRow(HMA, HMA.nRows, 1)
            Case 4         'clear last col
               ErrCode = cHMAClearCol(HMA, HMA.nCols, 1)
            Case 5         'clear last row in all sheets
               ErrCode = cHMAClearRow(HMA, HMA.nRows, -1)
            Case 6         'clear last col in all sheets
               ErrCode = cHMAClearCol(HMA, HMA.nCols, -1)
         End Select
         Tmp = Tmp & "R:1  , C:1  , D:1, Value : " & cHMAGet(HMA, 1, 1, 1) & vbCr
         Tmp = Tmp & "R:" & HMA.nRows & ", C:" & HMA.nCols & ", D:1, Value : " & cHMAGet(HMA, HMA.nRows, HMA.nCols, 1) & vbCr

         Tmp = Tmp & "R:1  , C:" & HMA.nCols & ", D:2, Value : " & cHMAGet(HMA, 1, HMA.nCols, 2) & vbCr
         Tmp = Tmp & "R:" & HMA.nRows & ", C:1  , D:2, Value : " & cHMAGet(HMA, HMA.nRows, 1, 2) & vbCr
      End If
   End If
   ErrCode = cHMAFree(HMA)
   Label3.Caption = Tmp
End Sub
Private Sub TestHMAType(Management As Integer)
   Dim Tmp        As String
   Dim ErrCode    As Integer
   Dim HMA        As tagHMA
   Dim TE         As tagTASKENTRY
   HMA.nType = Len(TE)
   HMA.nIsTyped = True
   HMA.nRows = 100
   HMA.nCols = 100
   HMA.nSheets = 2
   ErrCode = cHMACreate(HMA)
   Tmp = Tmp & "ErrCode = " & ErrCode & vbCr & vbCr
   If (ErrCode = True) Then

      Tmp = Tmp & "HMA.daSize       = " & HMA.daSize & vbCr
      Tmp = Tmp & "HMA.nType        = " & HMA.nType & vbCr
      Tmp = Tmp & "HMA.nIsTyped     = " & HMA.nIsTyped & vbCr
      Tmp = Tmp & "HMA.nRows        = " & HMA.nRows & vbCr
      Tmp = Tmp & "HMA.nCols        = " & HMA.nCols & vbCr
      Tmp = Tmp & "HMA.nSheets      = " & HMA.nSheets & vbCr
      Tmp = Tmp & "HMA.rHandle      = " & HMA.rHandle & vbCr
      Tmp = Tmp & "HMA.rElementSize = " & HMA.rElementSize & vbCr
      Tmp = Tmp & "HMA.rMemorySize  = " & HMA.rMemorySize & vbCr
      Tmp = Tmp & "HMA.rParts       = " & HMA.rParts & vbCr
      Tmp = Tmp & "HMA.rRemain      = " & HMA.rRemain & vbCr
      Tmp = Tmp & "HMA.rSheetSize   = " & HMA.rSheetSize & vbCr & vbCr
      ErrCode = cTasks(TE, True)
      Call cHMAPutType(HMA, 1, 1, 1, TE)
      ErrCode = cTasks(TE, False)
      Call cHMAPutType(HMA, HMA.nRows, HMA.nCols, 1, TE)

      ErrCode = cTasks(TE, False)
      Call cHMAPutType(HMA, 1, HMA.nCols, 2, TE)
      ErrCode = cTasks(TE, False)
      Call cHMAPutType(HMA, HMA.nRows, 1, 2, TE)

      Call cHMAGetType(HMA, 1, 1, 1, TE)
      Tmp = Tmp & "R:1  , C:1  , D:1, TE.szModule : " & cCompress(TE.szModule) & vbCr
      Call cHMAGetType(HMA, HMA.nRows, HMA.nCols, 1, TE)
      Tmp = Tmp & "R:" & HMA.nRows & ", C:" & HMA.nCols & ", D:1, TE.szModule : " & cCompress(TE.szModule) & vbCr

      Call cHMAGetType(HMA, 1, HMA.nCols, 2, TE)
      Tmp = Tmp & "R:1  , C:" & HMA.nCols & ", D:2, TE.szModule : " & cCompress(TE.szModule) & vbCr
      Call cHMAGetType(HMA, HMA.nRows, 1, 2, TE)
      Tmp = Tmp & "R:" & HMA.nRows & ", C:1  , D:2, TE.szModule : " & cCompress(TE.szModule) & vbCr & vbCr
      If (Management > 0) Then
         Select Case Management
            Case 1         'clear all
               ErrCode = cHMAClear(HMA)
            Case 2         'clear sheet 2
               ErrCode = cHMAClearSheet(HMA, 2)
            Case 3         'clear last row
               ErrCode = cHMAClearRow(HMA, HMA.nRows, 1)
            Case 4         'clear last col
               ErrCode = cHMAClearCol(HMA, HMA.nCols, 1)
            Case 5         'clear last row in all sheets
               ErrCode = cHMAClearRow(HMA, HMA.nRows, -1)
            Case 6         'clear last col in all sheets
               ErrCode = cHMAClearCol(HMA, HMA.nCols, -1)
         End Select
         Call cHMAGetType(HMA, 1, 1, 1, TE)
         Tmp = Tmp & "R:1  , C:1  , D:1, TE.szModule : " & cCompress(TE.szModule) & vbCr
         Call cHMAGetType(HMA, HMA.nRows, HMA.nCols, 1, TE)
         Tmp = Tmp & "R:" & HMA.nRows & ", C:" & HMA.nCols & ", D:1, TE.szModule : " & cCompress(TE.szModule) & vbCr

         Call cHMAGetType(HMA, 1, HMA.nCols, 2, TE)
         Tmp = Tmp & "R:1  , C:" & HMA.nCols & ", D:2, TE.szModule : " & cCompress(TE.szModule) & vbCr
         Call cHMAGetType(HMA, HMA.nRows, 1, 2, TE)
         Tmp = Tmp & "R:" & HMA.nRows & ", C:1  , D:2, TE.szModule : " & cCompress(TE.szModule) & vbCr
      End If
   End If
   ErrCode = cHMAFree(HMA)
   Label3.Caption = Tmp
End Sub
Private Sub TestHourTo()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = "The time 10:00 is " & cHourTo("10:00") & " minutes" & vbCr
   Tmp1 = Tmp1 & "The time 23:58 is " & cHourTo("23:58") & " minutes" & vbCr
   Tmp1 = Tmp1 & "The time 7:36 is " & cHourTo("7:36") & " minutes" & vbCr
   Tmp1 = Tmp1 & "The time :24 is " & cHourTo(":24") & " minutes" & vbCr
   Tmp1 = Tmp1 & "The time :4 is " & cHourTo(":4") & " minutes" & vbCr
   Tmp1 = Tmp1 & "The time : is " & cHourTo(":") & " minutes" & vbCr & vbCr
   Tmp1 = Tmp1 & "The time -10:00 is " & cHourTo("-10:00") & " minutes" & vbCr
   Tmp1 = Tmp1 & "The time -23:58 is " & cHourTo("-23:58") & " minutes" & vbCr
   Tmp1 = Tmp1 & "The time -7:36 is " & cHourTo("-7:36") & " minutes" & vbCr
   Tmp1 = Tmp1 & "The time -:24 is " & cHourTo("-:24") & " minutes" & vbCr
   Tmp1 = Tmp1 & "The time -:4 is " & cHourTo("-:4") & " minutes" & vbCr
   Tmp1 = Tmp1 & "The time -: is " & cHourTo("-:") & " minutes" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cHourTo("23:59")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestInpBox()
   Dim i       As Integer
   Dim n       As Integer
   Dim Tmp     As String
   Dim Tmp1    As String
   Tmp = "'T2WIN-16'" & vbCr & vbCr
   Tmp = Tmp & " is a powerfull data link library for using with Visual Basic 3.0 for Windows." & vbCr
   Tmp = Tmp & "It looks very better than the standard message box." & vbCr
   Tmp = Tmp & "All push buttons are displayed in French." & vbCr
   Tmp = Tmp & "The system menu is also in French."
   Tmp1 = cLngInpBox(LNG_FRENCH, Tmp, "Input Box in French", "" & Text1.Text)
   Tmp1 = InputBox$("This is a standard input box", "VB INPUT BOX", "" & Text1.Text)
End Sub
Private Sub TestInsertBlocks()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = "A~BC~DEF~GHIJ~"
   Title = "Insert 'a','bc','def','ghij' into [" & Tmp & "] is " & vbCr & vbCr
   Tmp1 = Title & cInsertBlocks(Tmp, "a~bc~def~ghij") & vbCr & vbCr
   Title = "Insert '' into [" & Tmp & "] is " & vbCr & vbCr
   Tmp1 = Tmp1 & Title & cInsertBlocks(Tmp, "") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cInsertBlocks(Tmp, "a")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestInsertBlocksBy()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Insert 'a','bc','def','ghij' into [" & Tmp & "] is " & vbCr & vbCr
   Tmp1 = Title & cInsertBlocksBy(Tmp, "a/bc/def/ghij", "/") & vbCr & vbCr
   Title = "Insert '' into [" & Tmp & "] is " & vbCr & vbCr
   Tmp1 = Tmp1 & Title & cInsertBlocksBy(Tmp, "", "/") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cInsertBlocksBy(Tmp, "a/bc/def/ghij", "/")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestInsertChars()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Insert 'a' from 7 char into [" & Tmp & "] is " & vbCr & vbCr
   Tmp1 = Title & cInsertChars(Tmp, 7, "a") & vbCr & vbCr
   Title = "Insert '10$' from 2 char into [" & Tmp & "] is " & vbCr & vbCr
   Tmp1 = Tmp1 & Title & cInsertChars(Tmp, 2, "10$") & vbCr & vbCr
   Title = "Insert '@' from 21 char into [" & Tmp & "] is " & vbCr & vbCr
   Tmp1 = Tmp1 & Title & cInsertChars(Tmp, 21, "@") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cInsertChars(Tmp, 1, "a")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestIntoBalance()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   j = 1234
   Title = "Convert minutes into balance : " & vbCr & vbCr
   Tmp1 = Title & vbCr
   For i = 0 To 11
      Tmp1 = Tmp1 & (j + i) & " { " & cIntoBalanceFill(j + i) & " }" & Chr$(9) & Chr$(9)
      Tmp1 = Tmp1 & "{ " & cIntoBalance(j + i) & " }" & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cIntoBalanceFill(i)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestIntoFixHour()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   j = 12345
   Title = "Convert " & j & " minutes into fixed hour : " & vbCr & vbCr
   Tmp1 = Title & vbCr
   For i = 0 To 11
      Tmp1 = Tmp1 & "{ " & cIntoFixHour(j, i, True, False) & " }" & Chr$(9) & Chr$(9)
      Tmp1 = Tmp1 & "{ " & cIntoFixHour(j, i, False, False) & " }" & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cIntoFixHour(12345, 8, True, False)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestIntoHour()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   j = 1234
   Title = "Convert minutes into hour : " & vbCr & vbCr
   Tmp1 = Title & vbCr
   For i = 0 To 11
      Tmp1 = Tmp1 & (j + i) & " { " & cIntoHour(j + i) & " }" & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cIntoHour(i)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestIntoVarHour()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long

   Title = "Convert minutes into variable hour : " & vbCr & vbCr
   Tmp1 = Title & vbCr
   For i = 1 To 9
      Tmp2 = Tmp2 & (10 - i)
      Tmp1 = Tmp1 & Tmp2 & " { " & cIntoVarHour(Val(Tmp2)) & " }" & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cIntoVarHour(123456789)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestIsBitPalindrome()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "[" & Tmp & "] is "
   Tmp1 = Title & IIf(cIsPalindrome(Tmp), "a Bit Palindrome", " not a Bit Palindrome") & vbCr & vbCr
   For i = 1 To 255
      If cIsBitPalindrome(Chr$(i)) Then Tmp2 = Tmp2 + Chr$(i) & "(" & i & ")" & Chr$(9)
   Next i
   Title = "The followings chars are Bit Palindrome : " & vbCr & vbCr
   Tmp1 = Tmp1 & Title & Tmp2 & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cIsPalindrome(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestIsFileX()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = cFilesInDirectory("*.*", True)
   Title = "[" & Tmp & "] is "
   Tmp1 = Title & vbCr & vbCr
   Tmp1 = Tmp1 & IIf(cIsFilenameValid(Tmp), " a good filename", " is not a good filename") & vbCr
   Tmp1 = Tmp1 & IIf(cIsFileArchive(Tmp), " archive", " not archive") & vbCr
   Tmp1 = Tmp1 & IIf(cIsFileHidden(Tmp), " hidden", " not hidden") & vbCr
   Tmp1 = Tmp1 & IIf(cIsFileNormal(Tmp), " normal", " not normal") & vbCr
   Tmp1 = Tmp1 & IIf(cIsFileReadOnly(Tmp), " read-only", " not read-only") & vbCr
   Tmp1 = Tmp1 & IIf(cIsFileSubDir(Tmp), " sub-directory", " not sub-directory") & vbCr
   Tmp1 = Tmp1 & IIf(cIsFileSystem(Tmp), " system", " not system") & vbCr
   Tmp1 = Tmp1 & IIf(cIsFileVolId(Tmp), " volume-id", " not volume-id") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cIsFileArchive(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestIsPalindrome()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "[" & Tmp & "] is "
   Tmp1 = Title & IIf(cIsPalindrome(Tmp), "a Palindrome", " not a Palindrome") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cIsPalindrome(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestIsX()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Tmp1 = "[" & Tmp & "] is " & vbCr
   Tmp1 = Tmp1 & IIf(cIsDigit(Tmp), "Digit", " not Digit") & vbCr
   Tmp1 = Tmp1 & IIf(cIsXdigit(Tmp), "XDigit", " not XDigit") & vbCr
   Tmp1 = Tmp1 & IIf(cIsAlpha(Tmp), "Alpha", " not Alpha") & vbCr
   Tmp1 = Tmp1 & IIf(cIsLower(Tmp), "Lower", " not Lower") & vbCr
   Tmp1 = Tmp1 & IIf(cIsUpper(Tmp), "Upper", " not Upper") & vbCr
   Tmp1 = Tmp1 & IIf(cIsAlnum(Tmp), "Alnum", " not Alnum") & vbCr
   Tmp1 = Tmp1 & IIf(cIsUpper(Tmp), "Upper", " not Upper") & vbCr
   Tmp1 = Tmp1 & IIf(cIsSpace(Tmp), "Space", " not Space") & vbCr
   Tmp1 = Tmp1 & IIf(cIsPunct(Tmp), "Punct", " not Punct") & vbCr
   Tmp1 = Tmp1 & IIf(cIsAscii(Tmp), "Ascii", " not Ascii") & vbCr
   Tmp1 = Tmp1 & IIf(cIsCsym(Tmp), "Csym", " not Csym") & vbCr
   Tmp1 = Tmp1 & IIf(cIsCsymf(Tmp), "Csymf", " not Csymf") & vbCr
   Tmp1 = Tmp1 & IIf(cIsISBN(Tmp), "ISBN", " not ISBN") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cIsDigit(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestKillDir()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   j = cMakeDir("c:\testing")
   Tmp1 = "Directory 'TESTING' " & IIf(cKillDir("c:\testing") = True, "deleted", "not deleted") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cKillDir("c:\testing")
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestKillFile()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Close #1
   Open "XY~YX~XY.~~~" For Output As #1
   Print #1, "this is a test";
   Close #1
   Tmp1 = "File XY~YX~XY.~~~ " & IIf(cKillFile("XY~YX~XY.~~~") = True, "destroyed", "not destroyed") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cKillFile("XY~YX~XY.~~~")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestKillFiles()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   For i = 1 To 34
      Close #1
      Open "C:\XY~YX~XY." & i For Output As #1
      Print #1, "this is a test";
      Close #1
   Next i
   Tmp1 = "Number of killed Files from 'C:XY~YX~XY.1' to 'C:XY~YX~XY.34' is " & cKillFiles("C:\XY~YX~XY.*") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cKillFiles("C:\XY~YX~XY.~~~")
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestLanguage()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim ErrCode    As Integer
   ReDim Lng(LNG_FRENCH To LNG_NORVEGIAN)
   k = Int(Now)
   Lng(LNG_FRENCH) = "LNG_FRENCH"
   Lng(LNG_DUTCH) = "LNG_DUTCH"
   Lng(LNG_GERMAN) = "LNG_GERMAN"
   Lng(LNG_ENGLISH) = "LNG_ENGLISH"
   Lng(LNG_ITALIAN) = "LNG_ITALIAN"
   Lng(LNG_SPANISH) = "LNG_SPANISH"
   Lng(LNG_CATALAN) = "LNG_CATALAN"
   Lng(LNG_POLISH) = "LNG_POLISH"
   Lng(LNG_NORVEGIAN) = "LNG_NORVEGIAN"
   Tmp1 = ""
   For i = LNG_FRENCH To LNG_NORVEGIAN
      Tmp1 = Tmp1 + Lng(i) + " : " + cGetLongDay(i, WeekDay(k)) & " " & Day(k) & " " & cGetLongMonth(i, Month(k)) & " " & Year(k) & vbCr
   Next i
   Tmp1 = Tmp1 + vbCr
   For i = LNG_FRENCH To LNG_NORVEGIAN
      Tmp1 = Tmp1 + Lng(i) + " : " + cGetShortDay(i, WeekDay(k)) & " " & Day(k) & " " & cGetShortMonth(i, Month(k)) & " " & Year(k) & vbCr
   Next i
   Tmp1 = Tmp1 + vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp = cGetLongMonth(LNG_FRENCH, 12)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestLrc()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Chr$(2) & "0a12721536"
   Tmp1 = "Lrc for [" & Tmp & "] is " & cLrc(Tmp) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cLrc(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMakeDir()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   j = cKillDir("testing")
   Tmp1 = "Directory 'TESTING' " & IIf(cMakeDir("testing") = True, "created", "not created") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cMakeDir("testing")
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMakePath()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim n          As Integer
   Dim j          As Long
   Dim SPLITPATH  As tagSPLITPATH
   Tmp1 = ""
   Tmp = cMakePath("c", "tmp", "test", "dat")
   Tmp1 = Tmp1 & "Make Path of (c,tmp,test,dat) is '" & Tmp & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "Split Path '" & Tmp & "' into four components is :" & vbCr & vbCr
   n = cSplitPath(Tmp, SPLITPATH)
   Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDrive & vbCr
   Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDir & vbCr
   Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nName & vbCr
   Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nExt & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp = cMakePath("c", "tmp", "test", "dat")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixAdd()
   Dim Tmp1       As String
   Dim TmpA       As String
   Dim TmpB       As String
   Dim TmpC       As String
   Dim i          As Integer
   Dim j          As Integer
   ReDim ArrayA(1 To 3, 1 To 3) As Double
   ReDim ArrayB(1 To 3, 1 To 3) As Double
   ReDim ArrayC(1 To 3, 1 To 3) As Double
   Randomize Timer
   For i = 1 To 3
      For j = 1 To 3
         ArrayA(i, j) = Int(RandI * Rnd(1))
         ArrayB(i, j) = Int(RandI * Rnd(1))
         ArrayC(i, j) = 0
         TmpA = TmpA + Format$(ArrayA(i, j), "00000  ")
         TmpB = TmpB + Format$(ArrayB(i, j), "00000  ")
      Next j
      TmpA = TmpA + vbCr
      TmpB = TmpB + vbCr
   Next i
   Call cMatrixAdd(3, ArrayA(), ArrayB(), ArrayC())
   For i = 1 To 3
      For j = 1 To 3
         TmpC = TmpC + Format$(ArrayC(i, j), "00000  ")
      Next j
      TmpC = TmpC + vbCr
   Next i
   Tmp1 = Tmp1 & "First array (A) is " & vbCr & vbCr & TmpA & vbCr
   Tmp1 = Tmp1 & "Second array (B) is " & vbCr & vbCr & TmpB & vbCr
   Tmp1 = Tmp1 & "The sum (A) + (B) = (C) is " & vbCr & vbCr & TmpC & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Call cMatrixAdd(3, ArrayA(), ArrayB(), ArrayC())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixCompare()
   Dim Tmp1       As String
   Dim TmpA       As String
   Dim TmpC       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim Idem       As Integer
   ReDim ArrayA(1 To 3, 1 To 3) As Double
   ReDim ArrayC(1 To 3, 1 To 3) As Double
   Randomize Timer
   For i = 1 To 3
      For j = 1 To 3
         ArrayA(i, j) = Int(RandI * Rnd(1))
         ArrayC(i, j) = Int(RandI * Rnd(1))
         TmpA = TmpA + Format$(ArrayA(i, j), "00000  ")
         TmpC = TmpC + Format$(ArrayC(i, j), "00000  ")
      Next j
      TmpA = TmpA + vbCr
      TmpC = TmpC + vbCr
   Next i
   Idem = cMatrixCompare(3, ArrayA(), ArrayC())
   Tmp1 = Tmp1 & "First array (A) is " & vbCr & vbCr & TmpA & vbCr
   Tmp1 = Tmp1 & "Second array (C) is " & vbCr & vbCr & TmpC & vbCr
   Tmp1 = Tmp1 & "Compare of (A) = (C) is " & Idem & vbCr & vbCr
   TmpA = ""
   TmpC = ""
   For i = 1 To 3
      For j = 1 To 3
         ArrayA(i, j) = Int(RandI * Rnd(1))
         ArrayC(i, j) = ArrayA(i, j)
         TmpA = TmpA + Format$(ArrayA(i, j), "00000  ")
         TmpC = TmpC + Format$(ArrayC(i, j), "00000  ")
      Next j
      TmpA = TmpA + vbCr
      TmpC = TmpC + vbCr
   Next i
   Idem = cMatrixCompare(3, ArrayA(), ArrayC())
   Tmp1 = Tmp1 & "First array (A) is " & vbCr & vbCr & TmpA & vbCr
   Tmp1 = Tmp1 & "Second array (C) is " & vbCr & vbCr & TmpC & vbCr
   Tmp1 = Tmp1 & "Compare of (A) = (C) is " & Idem & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Idem = cMatrixCompare(3, ArrayA(), ArrayC())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixCopy()
   Dim Tmp1       As String
   Dim TmpA       As String
   Dim TmpC       As String
   Dim i          As Integer
   Dim j          As Integer
   ReDim ArrayA(1 To 3, 1 To 3) As Double
   ReDim ArrayC(1 To 3, 1 To 3) As Double
   Randomize Timer
   For i = 1 To 3
      For j = 1 To 3
         ArrayA(i, j) = Int(RandI * Rnd(1))
         ArrayC(i, j) = 0
         TmpA = TmpA + Format$(ArrayA(i, j), "00000  ")
      Next j
      TmpA = TmpA + vbCr
   Next i
   Call cMatrixCopy(3, ArrayA(), ArrayC())
   For i = 1 To 3
      For j = 1 To 3
         TmpC = TmpC + Format$(ArrayC(i, j), "00000  ")
      Next j
      TmpC = TmpC + vbCr
   Next i
   Tmp1 = Tmp1 & "First array (A) is " & vbCr & vbCr & TmpA & vbCr
   Tmp1 = Tmp1 & "Copy of (A) = (C) is " & vbCr & vbCr & TmpC & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Call cMatrixCopy(3, ArrayA(), ArrayC())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixDet()
   Dim Tmp1       As String
   Dim TmpA       As String
   Dim TmpC       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim det        As Double
   Dim nSize      As Integer
   nSize = 3
   ReDim ArrayA(1 To nSize, 1 To nSize) As Double
   Randomize Timer
   For i = 1 To nSize
      For j = 1 To nSize
         ArrayA(i, j) = Int(RandI * Rnd(1))
         TmpA = TmpA + Format$(ArrayA(i, j), "00000  ")
      Next j
      TmpA = TmpA + vbCr
   Next i
   Tmp1 = Tmp1 & "First array (A) is " & vbCr & vbCr & TmpA & vbCr
   Tmp1 = Tmp1 & "Det of (A) = " & cMatrixDet(nSize, ArrayA()) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      det = cMatrixDet(nSize, ArrayA())
      DoEvents
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixInv()
   Dim Tmp1       As String
   Dim TmpA       As String
   Dim TmpC       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim result     As Integer
   ReDim ArrayA(1 To 3, 1 To 3) As Double
   ReDim ArrayC(1 To 3, 1 To 3) As Double
   Randomize Timer
   result = cMatrixFill(3, ArrayA(), MATRIX_ZERO)
   result = cMatrixFill(3, ArrayC(), MATRIX_UNIT)
   For i = 1 To 3
      For j = 1 To 3
         ArrayA(i, j) = Int(RandI * Rnd(1))
         TmpA = TmpA + Format$(ArrayA(i, j), "00000  ")
      Next j
      TmpA = TmpA + vbCr
   Next i
   result = cMatrixInv(3, ArrayA(), ArrayC())
   If (result = True) Then
      For i = 1 To 3
         For j = 1 To 3
            TmpC = TmpC + Format$(ArrayC(i, j), "0.0000000  ")
         Next j
         TmpC = TmpC + vbCr
      Next i
   Else
      TmpC = " 'can be inverted'"
   End If
   Tmp1 = Tmp1 & "First array (A) is " & vbCr & TmpA & vbCr
   Tmp1 = Tmp1 & "Inv of (A) = (C) is " & vbCr & TmpC & vbCr
   TmpA = ""
   TmpC = ""
   result = cMatrixFill(3, ArrayA(), MATRIX_ZERO)
   result = cMatrixFill(3, ArrayC(), MATRIX_ZERO)
   For i = 1 To 3
      For j = 1 To 3
         TmpA = TmpA + Format$(ArrayA(i, j), "00000  ")
      Next j
      TmpA = TmpA + vbCr
   Next i
   result = cMatrixInv(3, ArrayA(), ArrayC())
   If (result = True) Then
      For i = 1 To 3
         For j = 1 To 3
            TmpC = TmpC + Format$(ArrayC(i, j), "0.0000000  ")
         Next j
         TmpC = TmpC + vbCr
      Next i
   Else
      TmpC = " 'can be inverted'"
   End If
   Tmp1 = Tmp1 & "First array (A) is " & vbCr & TmpA & vbCr
   Tmp1 = Tmp1 & "Inv of (A) = (C) is " & vbCr & TmpC & vbCr & vbCr
   For i = 1 To 3
      For j = 1 To 3
         ArrayA(i, j) = Int(RandI * Rnd(1))
      Next j
   Next i
   cStartBasisTimer
   For i = 1 To ItemFile
      result = cMatrixInv(3, ArrayA(), ArrayC())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixMinCo()
   Dim Tmp1       As String
   Dim TmpA       As String
   Dim TmpC       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim cofact     As Double
   Dim nSize      As Integer
   nSize = 3
   ReDim ArrayA(1 To nSize, 1 To nSize) As Double
   Randomize Timer
   For i = 1 To nSize
      For j = 1 To nSize
         ArrayA(i, j) = Int(RandI * Rnd(1))
         TmpA = TmpA + Format$(ArrayA(i, j), "00000  ")
      Next j
      TmpA = TmpA + vbCr
   Next i
   Tmp1 = Tmp1 & "First array (A) is " & vbCr & vbCr & TmpA & vbCr & vbCr
   Tmp1 = Tmp1 & "CoFactor of A(1,1) = " & cMatrixCoFactor(nSize, ArrayA(), 1, 1) & vbCr
   Tmp1 = Tmp1 & "CoFactor of A(2,2) = " & cMatrixCoFactor(nSize, ArrayA(), 2, 2) & vbCr
   Tmp1 = Tmp1 & "CoFactor of A(3,3) = " & cMatrixCoFactor(nSize, ArrayA(), 3, 3) & vbCr & vbCr
   Tmp1 = Tmp1 & "Minor of A(1,1) = " & cMatrixMinor(nSize, ArrayA(), 1, 1) & vbCr
   Tmp1 = Tmp1 & "Minor of A(2,2) = " & cMatrixMinor(nSize, ArrayA(), 2, 2) & vbCr
   Tmp1 = Tmp1 & "Minor of A(3,3) = " & cMatrixMinor(nSize, ArrayA(), 3, 3) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      cofact = cMatrixCoFactor(nSize, ArrayA(), 1, 1)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixMul()
   Dim Tmp1       As String
   Dim TmpA       As String
   Dim TmpB       As String
   Dim TmpC       As String
   Dim i          As Integer
   Dim j          As Integer
   ReDim ArrayA(1 To 3, 1 To 3) As Double
   ReDim ArrayB(1 To 3, 1 To 3) As Double
   ReDim ArrayC(1 To 3, 1 To 3) As Double
   Randomize Timer
   For i = 1 To 3
      For j = 1 To 3
         ArrayA(i, j) = Int(RandI * Rnd(1))
         ArrayB(i, j) = Int(RandI * Rnd(1))
         ArrayC(i, j) = 0
         TmpA = TmpA + Format$(ArrayA(i, j), "00000  ")
         TmpB = TmpB + Format$(ArrayB(i, j), "00000  ")
      Next j
      TmpA = TmpA + vbCr
      TmpB = TmpB + vbCr
   Next i
   Call cMatrixMul(3, ArrayA(), ArrayB(), ArrayC())
   For i = 1 To 3
      For j = 1 To 3
         TmpC = TmpC + Format$(ArrayC(i, j), "000000000000  ")
      Next j
      TmpC = TmpC + vbCr
   Next i
   Tmp1 = Tmp1 & "First array (A) is " & vbCr & vbCr & TmpA & vbCr
   Tmp1 = Tmp1 & "Second array (B) is " & vbCr & vbCr & TmpB & vbCr
   Tmp1 = Tmp1 & "The multiply (A) . (B) = (C) is " & vbCr & vbCr & TmpC & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Call cMatrixMul(3, ArrayA(), ArrayB(), ArrayC())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixSub()
   Dim Tmp1       As String
   Dim TmpA       As String
   Dim TmpB       As String
   Dim TmpC       As String
   Dim i          As Integer
   Dim j          As Integer
   ReDim ArrayA(1 To 3, 1 To 3) As Double
   ReDim ArrayB(1 To 3, 1 To 3) As Double
   ReDim ArrayC(1 To 3, 1 To 3) As Double
   Randomize Timer
   For i = 1 To 3
      For j = 1 To 3
         ArrayA(i, j) = Int(RandI * Rnd(1))
         ArrayB(i, j) = Int(RandI * Rnd(1))
         ArrayC(i, j) = 0
         TmpA = TmpA + Format$(ArrayA(i, j), "00000  ")
         TmpB = TmpB + Format$(ArrayB(i, j), "00000  ")
      Next j
      TmpA = TmpA + vbCr
      TmpB = TmpB + vbCr
   Next i
   Call cMatrixSub(3, ArrayA(), ArrayB(), ArrayC())
   For i = 1 To 3
      For j = 1 To 3
         TmpC = TmpC + Format$(ArrayC(i, j), "00000  ")
      Next j
      TmpC = TmpC + vbCr
   Next i
   Tmp1 = Tmp1 & "First array (A) is " & vbCr & vbCr & TmpA & vbCr
   Tmp1 = Tmp1 & "Second array (B) is " & vbCr & vbCr & TmpB & vbCr
   Tmp1 = Tmp1 & "The substract (A) - (B) = (C) is " & vbCr & vbCr & TmpC & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Call cMatrixSub(3, ArrayA(), ArrayB(), ArrayC())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixSymToeplitz()
   Dim Tmp1       As String
   Dim TmpA       As String
   Dim TmpC       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim result     As Integer
   ReDim ArrayA(1 To 3, 1 To 3) As Double
   ReDim ArrayC(1 To 3, 1 To 3) As Double
   Randomize Timer
   For i = 1 To 1
      For j = 1 To 3
         ArrayA(i, j) = Int(RandI * Rnd(1))
         TmpA = TmpA + Format$(ArrayA(i, j), "00000  ")
      Next j
      TmpA = TmpA + vbCr
   Next i
   result = cMatrixSymToeplitz(3, ArrayA(), ArrayC())
   For i = 1 To 3
      For j = 1 To 3
         TmpC = TmpC + Format$(ArrayC(i, j), "00000  ")
      Next j
      TmpC = TmpC + vbCr
   Next i
   Tmp1 = Tmp1 & "First array (A) is " & vbCr & vbCr & TmpA & vbCr
   Tmp1 = Tmp1 & "Symmetrical Toeplitz of (A) = (C) is " & vbCr & vbCr & TmpC & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      result = cMatrixSymToeplitz(3, ArrayA(), ArrayC())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMatrixTranspose()
   Dim Tmp1       As String
   Dim TmpA       As String
   Dim TmpC       As String
   Dim i          As Integer
   Dim j          As Integer
   ReDim ArrayA(1 To 3, 1 To 3) As Double
   ReDim ArrayC(1 To 3, 1 To 3) As Double
   Randomize Timer
   For i = 1 To 3
      For j = 1 To 3
         ArrayA(i, j) = Int(RandI * Rnd(1))
         ArrayC(i, j) = 0
         TmpA = TmpA + Format$(ArrayA(i, j), "00000  ")
      Next j
      TmpA = TmpA + vbCr
   Next i
   Call cMatrixTranspose(3, ArrayA(), ArrayC())
   For i = 1 To 3
      For j = 1 To 3
         TmpC = TmpC + Format$(ArrayC(i, j), "00000  ")
      Next j
      TmpC = TmpC + vbCr
   Next i
   Tmp1 = Tmp1 & "First array (A) is " & vbCr & vbCr & TmpA & vbCr
   Tmp1 = Tmp1 & "Transpose of (A) = (C) is " & vbCr & vbCr & TmpC & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      Call cMatrixTranspose(3, ArrayA(), ArrayC())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMaxI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Double
   ReDim array(ItemMean) As Integer
   Randomize Timer
   For i = LBound(array) To UBound(array)
      array(i) = RandI * Rnd(1)
      List1.AddItem "" & array(i)
   Next i
   j = cSortI(array())
   For i = LBound(array) To UBound(array)
      List2.AddItem "" & array(i)
   Next i
   List2.ListIndex = List2.ListCount - 1
   Tmp1 = "The MAX of a integer array of " & (ItemMean + 1) & " elements is " & vbCr & vbCr & cMaxI(array()) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      m = cMaxI(array())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMD5()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp2 = "T2WIN-16"
   Tmp = Text1.Text
   Tmp1 = "HashMD5 for '" & Tmp2 & "' is " & cHashMD5(Tmp2) & vbCr & vbCr
   Tmp1 = Tmp1 & "HashMD5 for '" & Tmp & "' is " & cHashMD5(Tmp) & vbCr & vbCr
   Tmp1 = Tmp1 & "HashMD5 for '" & LCase$(Tmp2) & "' is " & cHashMD5(LCase$(Tmp2)) & vbCr & vbCr
   Tmp1 = Tmp1 & "HashMD5 for '" & LCase$(Tmp) & "' is " & cHashMD5(LCase$(Tmp)) & vbCr & vbCr
   Tmp1 = Tmp1 & "HashMD5 for '" & Left$(Tmp2, 3) & "' is " & cHashMD5(Left$(Tmp2, 3)) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp3 = cHashMD5(Tmp2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMDA(Management As Integer)
   Dim Tmp        As String
   Dim ErrCode    As Integer
   Dim MDA        As tagMULTIPLEDISKARRAY
   Dim TE         As tagTASKENTRY
   ErrCode = cMakeDir("c:\t2w_tmp")
   MDA.nFilename = "c:\t2w_tmp\mda.tmp"
   MDA.nType(1) = DA_LONG     'long
   MDA.nIsTyped(1) = False
   MDA.nRows(1) = 20
   MDA.nCols(1) = 20
   MDA.nSheets(1) = 2
   MDA.nType(2) = 10          'string
   MDA.nIsTyped(2) = False
   MDA.nRows(2) = 20
   MDA.nCols(2) = 20
   MDA.nSheets(2) = 2
   MDA.nType(9) = Len(TE)     'type'd
   MDA.nIsTyped(9) = True
   MDA.nRows(9) = 20
   MDA.nCols(9) = 20
   MDA.nSheets(9) = 2
   Select Case Management
      Case True      'create
         ErrCode = cMDACreate(MDA, True)
      Case False     'use
         ErrCode = cMDACreate(MDA, False)
      Case 1         'clear all
         ErrCode = cMDACreate(MDA, False)
         If (ErrCode = -1) Then ErrCode = cMDAClear(1, MDA)
         If (ErrCode = -1) Then ErrCode = cMDAClear(2, MDA)
         If (ErrCode = -1) Then ErrCode = cMDAClear(9, MDA)
      Case 2         'clear sheet 2
         ErrCode = cMDACreate(MDA, False)
         If (ErrCode = -1) Then ErrCode = cMDAClearSheet(1, MDA, 2)
         If (ErrCode = -1) Then ErrCode = cMDAClearSheet(2, MDA, 2)
         If (ErrCode = -1) Then ErrCode = cMDAClearSheet(9, MDA, 2)
      Case 3         'clear last row
         ErrCode = cMDACreate(MDA, False)
         If (ErrCode = -1) Then ErrCode = cMDAClearRow(1, MDA, MDA.nRows(1), 1)
         If (ErrCode = -1) Then ErrCode = cMDAClearRow(2, MDA, MDA.nRows(2), 1)
         If (ErrCode = -1) Then ErrCode = cMDAClearRow(9, MDA, MDA.nRows(9), 1)
      Case 4         'clear last col
         ErrCode = cMDACreate(MDA, False)
         If (ErrCode = -1) Then ErrCode = cMDAClearCol(1, MDA, MDA.nCols(1), 1)
         If (ErrCode = -1) Then ErrCode = cMDAClearCol(2, MDA, MDA.nCols(2), 1)
         If (ErrCode = -1) Then ErrCode = cMDAClearCol(9, MDA, MDA.nCols(9), 1)
      Case 5         'clear last row in all sheets
         ErrCode = cMDACreate(MDA, False)
         If (ErrCode = -1) Then ErrCode = cMDAClearRow(1, MDA, MDA.nRows(1), -1)
         If (ErrCode = -1) Then ErrCode = cMDAClearRow(2, MDA, MDA.nRows(2), -1)
         If (ErrCode = -1) Then ErrCode = cMDAClearRow(9, MDA, MDA.nRows(9), -1)
      Case 6         'clear last col in all sheets
         ErrCode = cMDACreate(MDA, False)
         If (ErrCode = -1) Then ErrCode = cMDAClearCol(1, MDA, MDA.nCols(1), -1)
         If (ErrCode = -1) Then ErrCode = cMDAClearCol(2, MDA, MDA.nCols(2), -1)
         If (ErrCode = -1) Then ErrCode = cMDAClearCol(9, MDA, MDA.nCols(9), -1)
   End Select
   Tmp = Tmp & "ErrCode = " & ErrCode & vbCr & vbCr
   If (ErrCode = True) Then

      Tmp = Tmp & "MDA.daSize          = " & MDA.daSize & vbCr
      Tmp = Tmp & "MDA.Signature       = " & MDA.signature & vbCr
      Tmp = Tmp & "MDA.nFilename       = " & Trim$(MDA.nFilename) & vbCr
      Tmp = Tmp & "MDA.rHandle         = " & MDA.rHandle & vbCr
      Tmp = Tmp & "MDA.rFileSize       = " & MDA.rFileSize & vbCr & vbCr
      Tmp = Tmp & "MDA.nType(1)(2)(9)        = (" & MDA.nType(1) & ") (" & MDA.nType(2) & ") (" & MDA.nType(9) & ")" & vbCr
      Tmp = Tmp & "MDA.nIsTyped(1)(2)(9)     = (" & MDA.nIsTyped(1) & ") (" & MDA.nIsTyped(2) & ") (" & MDA.nIsTyped(9) & ")" & vbCr
      Tmp = Tmp & "MDA.nRows(1)(2)(9)        = (" & MDA.nRows(1) & ") (" & MDA.nRows(2) & ") (" & MDA.nRows(9) & ")" & vbCr
      Tmp = Tmp & "MDA.nCols(1)(2)(9)        = (" & MDA.nCols(1) & ") (" & MDA.nCols(2) & ") (" & MDA.nCols(9) & ")" & vbCr
      Tmp = Tmp & "MDA.nSheets(1)(2)(9)      = (" & MDA.nSheets(1) & ") (" & MDA.nSheets(2) & ") (" & MDA.nSheets(9) & ")" & vbCr
      Tmp = Tmp & "MDA.rElementSz(1)(2)(9)   = (" & MDA.rElementSz(1) & ") (" & MDA.rElementSz(2) & ") (" & MDA.rElementSz(9) & ")" & vbCr
      Tmp = Tmp & "MDA.rSheetSz(1)(2)(9)     = (" & MDA.rSheetSz(1) & ") (" & MDA.rSheetSz(2) & ") (" & MDA.rSheetSz(9) & ")" & vbCr
      Tmp = Tmp & "MDA.rOffsetPos(1)(2)(9)   = (" & MDA.rOffsetPos(1) & ") (" & MDA.rOffsetPos(2) & ") (" & MDA.rOffsetPos(9) & ")" & vbCr & vbCr
      If (Management = True) Then
         Call cMDAPut(1, MDA, 1, 1, 1, 123456789)
         Call cMDAPut(1, MDA, MDA.nRows(1), MDA.nCols(1), MDA.nSheets(1), 987654321)

         Call cMDAPut(2, MDA, 1, 1, 1, "S:1, ABCDEFGHIJ")
         Call cMDAPut(2, MDA, MDA.nRows(2), MDA.nCols(2), MDA.nSheets(2), "S:" & MDA.nSheets(2) & ", oprqstuvwxyz")

         ErrCode = cTasks(TE, True)
         Call cMDAPutType(9, MDA, 1, 1, 1, TE)
         ErrCode = cTasks(TE, False)
         Call cMDAPutType(9, MDA, MDA.nRows(9), MDA.nCols(9), MDA.nSheets(9), TE)

      End If
      Tmp = Tmp & "A:1  , R:1  , C:1  , S:1, Value : " & Trim$(cMDAGet(1, MDA, 1, 1, 1)) & "   , time : " & MDA.rTime & vbCr
      Tmp = Tmp & "A:1  , R:" & MDA.nRows(1) & ", C:" & MDA.nCols(1) & ", S:" & MDA.nSheets(1) & ", Value : " & Trim$(cMDAGet(1, MDA, MDA.nRows(1), MDA.nCols(1), MDA.nSheets(1))) & "   , time : " & MDA.rTime & vbCr
      Tmp = Tmp & "A:2  , R:1  , C:1  , S:1, Value : " & Trim$(cMDAGet(2, MDA, 1, 1, 1)) & "   , time : " & MDA.rTime & vbCr
      Tmp = Tmp & "A:2  , R:" & MDA.nRows(2) & ", C:" & MDA.nCols(2) & ", S:" & MDA.nSheets(2) & ", Value : " & Trim$(cMDAGet(2, MDA, MDA.nRows(2), MDA.nCols(2), MDA.nSheets(2))) & "   , time : " & MDA.rTime & vbCr
      Call cMDAGetType(9, MDA, 1, 1, 1, TE)
      Tmp = Tmp & "A:9  , R:1  , C:1  , S:1, TE.szModule : " & cCompress(TE.szModule) & "   , time : " & MDA.rTime & vbCr
      Call cMDAGetType(9, MDA, MDA.nRows(9), MDA.nCols(9), MDA.nSheets(9), TE)
      Tmp = Tmp & "A:9  , R:" & MDA.nRows(9) & ", C:" & MDA.nCols(9) & ", S:" & MDA.nSheets(9) & ", TE.szModule : " & cCompress(TE.szModule) & "   , time : " & MDA.rTime & vbCr
   End If
   Call cMDAClose(MDA, False)
   Label3.Caption = Tmp
End Sub
Private Sub TestMeanI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Double
   ReDim array(ItemMean) As Integer
   Randomize Timer
   m = 0
   For i = LBound(array) To UBound(array)
      array(i) = Int(RandI * Rnd(1))
      m = m + array(i)
      List1.AddItem "" & array(i)
   Next i
   Tmp1 = "The Mean of a integer array of " & (ItemMean + 1) & " elements is " & vbCr & vbCr & cMeanI(array()) & " (" & (m / (UBound(array) - LBound(array) + 1)) & ")" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      m = cMeanI(array())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMenuChange()
   Call cSysMenuChange(Me.hWnd, 0, "&Restaurer")
   Call cSysMenuChange(Me.hWnd, 1, "&Positionner")
   Call cSysMenuChange(Me.hWnd, 2, "&Taille")
   Call cSysMenuChange(Me.hWnd, 3, "&Ic
   Call cSysMenuChange(Me.hWnd, 4, "&Plein
cran")
   Call cSysMenuChange(Me.hWnd, 6, "&Fermer" + Chr$(9) + "Alt+F4")
   Call cSysMenuChange(Me.hWnd, 8, "&T
che" + Chr$(9) + "Ctrl+Esc")
End Sub
Private Sub TestMin()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = "Min of [32760,1234567] is " & cMin(32760, 1234567) & vbCr
   Tmp1 = Tmp1 + "Max of [32760,1234567] is " & cMax(32760, 1234567) & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cMin(32760, 1234567)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMinI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Double
   ReDim array(ItemMean) As Integer
   Randomize Timer
   For i = LBound(array) To UBound(array)
      array(i) = RandI * Rnd(1)
      List1.AddItem "" & array(i)
   Next i
   j = cSortI(array())
   For i = LBound(array) To UBound(array)
      List2.AddItem "" & array(i)
   Next i
   List2.ListIndex = 0
   Tmp1 = "The MIN of a integer array of " & (ItemMean + 1) & " elements is " & vbCr & vbCr & cMinI(array()) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      m = cMinI(array())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMixChars()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer

   Tmp = Text1.Text
   Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMixChars(Tmp) & vbCr & vbCr
   Tmp = "T2WIN-16"
   Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMixChars(Tmp) & vbCr & vbCr
   Tmp = "Nothing can beat the fox"
   Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMixChars(Tmp) & vbCr & vbCr
   Tmp = Text1.Text
   Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMixChars(Tmp) & vbCr & vbCr

   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cMixChars(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMnuLanguage()
   Load frmLng
   Call cShowWindow(frmLng.hWnd, 1, 340)
   frmLng.Show
End Sub
Private Sub TestMorse()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer

   Tmp = "SOS"
   Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMorse(Tmp) & vbCr & vbCr
   Tmp = "T2WIN-16"
   Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMorse(Tmp) & vbCr & vbCr
   Tmp = "Nothing can beat the fox"
   Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMorse(Tmp) & vbCr & vbCr
   Tmp = Text1.Text
   Tmp1 = Tmp1 + "MixChars of [" & Tmp & "] is " & cMorse(Tmp) & vbCr & vbCr

   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cMorse(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestMsgBox()
   Dim i       As Integer
   Dim n       As Integer
   Dim Tmp     As String
   Tmp = "'T2WIN-16'" & vbCr & vbCr
   Tmp = Tmp & " is a powerfull data link library for using with Visual Basic 3.0 for Windows." & vbCr & vbCr
   Tmp = Tmp & "It looks very better than the standard message box." & vbCr & vbCr
   Tmp = Tmp & "All push buttons are displayed in French." & vbCr & vbCr
   Tmp = Tmp & "The system menu is also in French." & vbCr & vbCr
   Tmp = Tmp & "A TimeOut of 10 seconds has been activated and displayed."
   For i = 0 To 5
      Call cLngBoxMsg(LNG_FRENCH, Tmp, i + (16 * i) + 512 + MB_MESSAGE_CENTER + MB_TIMEOUT_10 + MB_DISPLAY_TIMEOUT, "Message Box in French with TimeOut")
   Next i
End Sub
Private Sub TestOneCharFromLeft()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "The 3,7,1 chars from left of [" & Tmp & "] are " & vbCr & vbCr
   Tmp = Text1.Text
   Tmp1 = Title & "3:" & cOneCharFromLeft(Tmp, 3) & " | 7:" & cOneCharFromLeft(Tmp, 7) & " | 1:" & cOneCharFromLeft(Tmp, 1) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cOneCharFromLeft(Tmp, 2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestOneCharFromRight()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "The 3,7,1 chars from right of [" & Tmp & "] are " & vbCr & vbCr
   Tmp = Text1.Text
   Tmp1 = Title & "3:" & cOneCharFromRight(Tmp, 3) & " | 7:" & cOneCharFromRight(Tmp, 7) & " | 1:" & cOneCharFromRight(Tmp, 1) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cOneCharFromRight(Tmp, 2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestOrToken()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = "FOX|OVER|THE"
   Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
   Tmp1 = "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrToken(Tmp2, Tmp), "present", "not present") & vbCr & vbCr
   Tmp = "quick|jumps|the"
   Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
   Tmp1 = Tmp1 & "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrToken(Tmp2, Tmp), "present", "not present") & vbCr & vbCr
   Tmp = "FOX\OVER\THE"
   Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
   Tmp1 = Tmp1 & "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrTokenIn(Tmp2, Tmp, "\"), "present", "not present") & vbCr & vbCr
   Tmp = "quick\jumps\the"
   Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
   Tmp1 = Tmp1 & "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrTokenIn(Tmp2, Tmp, "\"), "present", "not present") & vbCr & vbCr
   Tmp = "FOX/OVER/THE"
   Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
   Tmp1 = Tmp1 & "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrTokenIn(Tmp2, Tmp, "\"), "present", "not present") & vbCr & vbCr
   Tmp = "quick\JUMPS\the"
   Tmp2 = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG"
   Tmp1 = Tmp1 & "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrTokenIn(Tmp2, Tmp, "\"), "present", "not present") & vbCr & vbCr
   Tmp = LCase$("quick\jumps\THE")
   Tmp2 = LCase$("THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG")
   Tmp1 = Tmp1 & "One of token '" & Tmp & "' in '" & Tmp2 & "' is " & IIf(cOrTokenIn(Tmp2, Tmp, "\"), "present", "not present") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cOrToken(Tmp2, Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestPatternExtMatch()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp2 = "Under the blue sky, the sun lights"
   Tmp1 = "PatternExtMatch '" & Tmp2 & "' with" & vbCr & vbCr
   Tmp3 = "*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "*??*???*?"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "*Under*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "*sky*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "*lights"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "??der*sky*ligh??*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "Under?the * s??,*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "[U-U][a-z][a-z][a-z][a-z]?the *"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "[U-U][!A-Z][^A-Z][^A-Z][!A-Z]?the *[s-s]"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "~55~6E*~73"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "[Uu][Nn][dD][eE][opqrst]?the *[rstu]"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "Under?the *[~72~73~74~75]"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr & vbCr
   Tmp3 = "*under*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "Under*sun"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "Under t??e*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "[U-U][!a-z][^A-Z][^A-Z][!A-Z]?the *[!s-s]"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "~55~6G*~73"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "[Uu][Nn][dD][eE][opqrst]?the *[rStu]"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "Under?the *[~72~53~74~75]"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternExtMatch(Tmp2, Tmp3) & vbCr & vbCr
   Tmp3 = "Under?the * s??,*"
   cStartBasisTimer
   For i = 1 To Item
      j = cPatternExtMatch(Tmp2, Tmp3)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestPatternMatch()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp2 = "Under the blue sky, the sun lights"
   Tmp1 = "PatternMatch '" & Tmp2 & "' with" & vbCr & vbCr
   Tmp3 = "*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "*??*???*?"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "*Under*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "*sky*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "*lights"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "??der*sky*ligh??*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "Under?the * s??,*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & vbCr & vbCr
   Tmp3 = "*under*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "Under*sun"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & vbCr
   Tmp3 = "Under t??e*"
   Tmp1 = Tmp1 & "'" & Tmp3 & "'  is " & cPatternMatch(Tmp2, Tmp3) & vbCr & vbCr
   Tmp3 = "Under?the * s??,*"
   cStartBasisTimer
   For i = 1 To Item
      j = cPatternMatch(Tmp2, Tmp3)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestProperName()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Tmp1 = Tmp1 + "ProperName of [" & Tmp & "] is " & cProperName(Tmp) & vbCr & vbCr
   Tmp = "John fitz,jr"
   Tmp1 = Tmp1 + "ProperName of [" & Tmp & "] is " & cProperName(Tmp) & vbCr & vbCr
   Tmp = "john Fitz, jr"
   Tmp1 = Tmp1 + "ProperName of [" & Tmp & "] is " & cProperName(Tmp) & vbCr & vbCr
   Tmp = "macdonald"
   Tmp1 = Tmp1 + "ProperName of [" & Tmp & "] is " & cProperName(Tmp) & vbCr & vbCr
   Tmp = "mac donald"
   Tmp1 = Tmp1 + "ProperName of [" & Tmp & "] is " & cProperName(Tmp) & vbCr & vbCr

   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cProperName(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestProperName2()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "", 0) & "'" & vbCr & vbCr
   Tmp = "JOHN FITZ,JR"
   Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "", PN_UPPERCASE Or PN_PUNCTUATION) & "'" & vbCr & vbCr
   Tmp = "john Fitz,jr"
   Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "", PN_PUNCTUATION) & "'" & vbCr & vbCr
   Tmp = "macdonald"
   Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "", 0) & "'" & vbCr & vbCr
   Tmp = "mac donald"
   Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "", 0) & "'" & vbCr & vbCr
   Tmp = "a.l. greene jr."
   Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "", PN_PUNCTUATION) & "'" & vbCr & vbCr
   Tmp = "shale and sandstone and till"
   Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "the/of/a/an/and", PN_PUNCTUATION) & "'" & vbCr & vbCr
   Tmp = "a sandstone or a shale"
   Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "the/or/of/a/an/and", PN_PUNCTUATION) & "'" & vbCr & vbCr
   Tmp = "RR2 BARRHEAD"
   Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "rr2", PN_UPPERCASE Or PN_PUNCTUATION Or PN_KEEP_ORIGINAL) & "'" & vbCr & vbCr
   Tmp = "ANDY MACDONALD"
   Tmp1 = Tmp1 + "ProperName2 of '" & Tmp & "' is '" & cProperName2(Tmp, "mac", PN_UPPERCASE Or PN_PUNCTUATION Or PN_KEEP_ORIGINAL Or PN_ONLY_LEADER_SPACE) & "'" & vbCr & vbCr

   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cProperName2(Tmp, "", 0)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestRcsCountFileDir()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Integer
   Tmp1 = ""
   Tmp1 = Tmp1 & "Total directories in C: is " & cRcsCountFileDir(False, "C:", "", True) & vbCr
   Tmp1 = Tmp1 & "Total directories in D: is " & cRcsCountFileDir(False, "D:", "", True) & vbCr
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Total files in C: is " & cRcsCountFileDir(True, "C:", "", True) & vbCr
   Tmp1 = Tmp1 & "Total files in D: is " & cRcsCountFileDir(True, "D:", "", True) & vbCr
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Total files in C:*.DAT is " & cRcsCountFileDir(True, "C:", "*.DAT", True) & vbCr
   Tmp1 = Tmp1 & "Total files in D:*.DAT is " & cRcsCountFileDir(True, "D:", "*.DAT", True) & vbCr
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Total directories in C:\ is " & cRcsCountFileDir(False, "C:", "", False) & vbCr
   Tmp1 = Tmp1 & "Total directories in D:\ is " & cRcsCountFileDir(False, "D:", "", False) & vbCr
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Total files in C:\ is " & cRcsCountFileDir(True, "C:", "", False) & vbCr
   Tmp1 = Tmp1 & "Total files in D:\ is " & cRcsCountFileDir(True, "D:", "", False) & vbCr
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Total files in C:\*.DAT is " & cRcsCountFileDir(True, "C:", "*.DAT", False) & vbCr
   Tmp1 = Tmp1 & "Total files in D:\*.DAT is " & cRcsCountFileDir(True, "D:", "*.DAT", False) & vbCr
   Tmp1 = Tmp1 & vbCr
   cStartBasisTimer
   For i = 1 To 10
      k = cRcsCountFileDir(False, "C:", "", False)
   Next i
   Tmp1 = Tmp1 & "speed for " & 10 & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestRcsFilesSize()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Dim Size1      As Double
   Dim Size2      As Double
   Tmp1 = ""
   Tmp1 = Tmp1 & "Size of files c:\*.* is " & cRcsFilesSize("c:\", "*.*", False) & vbCr
   Tmp1 = Tmp1 & "Size of files c:\*.exe is " & cRcsFilesSize("c:\", "*.exe", False) & vbCr
   Tmp1 = Tmp1 & "Size of files c:\*.com is " & cRcsFilesSize("c:\", "*.com", False) & vbCr
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Size of files c:\*.* on disk is " & cRcsFilesSizeOnDisk("c:\", "*.*", False) & vbCr
   Tmp1 = Tmp1 & "Size of files c:\*.exe on disk is " & cRcsFilesSizeOnDisk("c:\", "*.exe", False) & vbCr
   Tmp1 = Tmp1 & "Size of files c:\*.com on disk is " & cRcsFilesSizeOnDisk("c:\", "*.com", False) & vbCr
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Slack of files c:\*.* on disk is " & cRcsFilesSlack("c:\", "*.*", False, Size1, Size2) & " %" & vbCr
   Tmp1 = Tmp1 & "Slack of files c:\*.exe on disk is " & cRcsFilesSlack("c:\", "*.exe", False, Size1, Size2) & " %" & vbCr
   Tmp1 = Tmp1 & "Slack of files c:\*.com on disk is " & cRcsFilesSlack("c:\", "*.com", False, Size1, Size2) & " %" & vbCr
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Size of files starting with c:\*.* is " & cRcsFilesSize("c:\", "*.*", True) & vbCr
   Tmp1 = Tmp1 & "Size of files starting with c:\*.exe is " & cRcsFilesSize("c:\", "*.exe", True) & vbCr
   Tmp1 = Tmp1 & "Size of files starting with c:\*.com is " & cRcsFilesSize("c:\", "*.com", True) & vbCr
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Size of files starting with c:\*.* on disk is " & cRcsFilesSizeOnDisk("c:\", "*.*", True) & vbCr
   Tmp1 = Tmp1 & "Size of files starting with c:\*.exe on disk is " & cRcsFilesSizeOnDisk("c:\", "*.exe", True) & vbCr
   Tmp1 = Tmp1 & "Size of files starting with c:\*.com on disk is " & cRcsFilesSizeOnDisk("c:\", "*.com", True) & vbCr
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Slack of files starting with c:\*.* on disk is " & cRcsFilesSlack("c:\", "*.*", True, Size1, Size2) & " %" & vbCr
   Tmp1 = Tmp1 & "Slack of files starting with c:\*.exe on disk is " & cRcsFilesSlack("c:\", "*.exe", True, Size1, Size2) & " %" & vbCr
   Tmp1 = Tmp1 & "Slack of files starting with c:\*.com on disk is " & cRcsFilesSlack("c:\", "*.com", True, Size1, Size2) & " %" & vbCr
   Tmp1 = Tmp1 & vbCr
   cStartBasisTimer
   For i = 1 To 10
      k = cRcsFilesSize("c:\", "*.*", False)
   Next i
   Tmp1 = Tmp1 & "speed for " & 10 & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestReadLanguage()
   Load frmLng
   Call cShowWindow(frmLng.hWnd, 1, 340)
   frmLng.Show
End Sub
Private Sub TestRegistrationKey()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp2 = "T2WIN-16"
   Tmp3 = "12345"
   Tmp = Text1.Text
   Tmp1 = "Registration key for '" & Tmp2 & "' with '" & Tmp3 & "' is " & cRegistrationKey(Tmp2, Val(Tmp3)) & vbCr & vbCr
   Tmp1 = Tmp1 & "Registration key for '" & cBlockCharFromLeft(Tmp2, 1) & "n" & "' with '" & Tmp3 & "' is " & cRegistrationKey(cBlockCharFromLeft(Tmp2, 1) + "n", Val(Tmp3)) & vbCr & vbCr
   Tmp1 = Tmp1 & "Registration key for '" & Tmp & "' with '" & Tmp3 & "' is " & cRegistrationKey(Tmp, Val(Tmp3)) & vbCr & vbCr
   Tmp1 = Tmp1 & "Registration key for '" & LCase$(Tmp2) & "' with '" & Tmp3 & "' is " & cRegistrationKey(LCase$(Tmp2), Val(Tmp3)) & vbCr & vbCr
   Tmp1 = Tmp1 & "Registration key for '" & LCase$(Tmp) & "' with '" & Tmp3 & "' is " & cRegistrationKey(LCase$(Tmp), Val(Tmp3)) & vbCr & vbCr
   Tmp1 = Tmp1 & "Registration key for '" & Left$(Tmp2, 3) & "' with '" & Tmp3 & "' is " & cRegistrationKey(Left$(Tmp2, 3), Val(Tmp3)) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cRegistrationKey(Tmp2, Val(Tmp3))
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestRemoveBlockChar()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Removing 3 chars from the 7 of [" & Tmp & "] is "
   Tmp = cRemoveBlockChar(Tmp, 7, 3)
   Tmp1 = Title & Tmp & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp = cRemoveBlockChar(Tmp, 1, 2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestRemoveOneChar()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Removing the 7 char of [" & Tmp & "] is "
   Tmp = cRemoveOneChar(Tmp, 7)
   Tmp1 = Title & Tmp & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp = cRemoveOneChar(Tmp, 1)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestRenameFile()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   j = cKillFile("XY~YX~XY.~~~")
   j = cKillFile("XY-YX-XY.---")
   Close #1
   Open "XY~YX~XY.~~~" For Output As #1
   Print #1, "this is a test";
   Close #1
   Tmp1 = "File XY~YX~XY.~~~ " & IIf(cRenameFile("XY~YX~XY.~~~", "XY-YX-XY.---") = True, "renamed in XY-YX-XY.---", "is not renamed") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cRenameFile("XY~YX~XY.~~~", "XY-YX-XY.---")
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestResizeString()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Tmp1 = Tmp & " is resized from " & Len(Tmp) & " to 5 chars " & cResizeString(Tmp, 5) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cResizeString(Tmp, 3)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestResizeStringAndFill()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Tmp1 = Tmp & " is resized from " & Len(Tmp) & " to 35 chars and lengthened with @ is " & vbCr & vbCr & cResizeStringAndFill(Tmp, 35, "@") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cResizeStringAndFill(Tmp, 35, "@")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestReverse()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Reverse of [" & Tmp & "] is "
   Tmp1 = Title & cReverse(Tmp) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cReverse(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestReverseAllBits()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Reverse all bits of [" & Tmp & "] is "
   Call cReverseAllBits(Tmp)
   Tmp1 = Title & Tmp & vbCr & vbCr
   Title = "Reverse all bits of [" & Tmp & "] is "
   Call cReverseAllBits(Tmp)
   Tmp1 = Tmp1 & Title & Tmp & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Call cReverseAllBits(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestReverseAllBitsByChar()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Reverse all bits by char of [" & Tmp & "] is "
   Call cReverseAllBitsByChar(Tmp)
   Tmp1 = Title & Tmp & vbCr & vbCr
   Title = "Reverse all bits by char of [" & Tmp & "] is "
   Call cReverseAllBitsByChar(Tmp)
   Tmp1 = Tmp1 & Title & Tmp & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Call cReverseAllBitsByChar(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestReverseSortI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Integer
   ReDim array(ItemMean) As Integer
   Randomize Timer
   For i = LBound(array) To UBound(array)
      array(i) = RandI * Rnd(1)
      List1.AddItem "" & array(i)
   Next i
   j = cReverseSortI(array())
   For i = LBound(array) To UBound(array)
      List2.AddItem "" & array(i)
   Next i
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cReverseSortI(array())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestRndX()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Call cRndInit(-1)
   Tmp1 = "Some random Integer number" & vbCr & vbCr
   For i = 1 To 2
      Tmp1 = Tmp1 & cRndI() & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Some random Long number" & vbCr & vbCr
   For i = 1 To 2
      Tmp1 = Tmp1 & cRndL() & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Some random Single number" & vbCr & vbCr
   For i = 1 To 2
      Tmp1 = Tmp1 & cRndS() & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Some random Double number" & vbCr & vbCr
   For i = 1 To 2
      Tmp1 = Tmp1 & cRndD() & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   Tmp1 = Tmp1 & "Some random Double number between 0.0 and 1.0" & vbCr & vbCr
   For i = 1 To 2
      Tmp1 = Tmp1 & cRnd() & vbCr
   Next i
   Tmp1 = Tmp1 & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cRndI()
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestRtoA()
   Dim Tmp        As String
   Dim Tmp1       As String
   Tmp = UCase$(cArabicToRoman(Year(Int(Now))))
   Tmp1 = Tmp & " in Arabic is " & cRomanToArabic(LCase$(Tmp)) & vbCr
   Tmp = UCase$(cArabicToRoman(Year(Int(Now)) - 1))
   Tmp1 = Tmp1 & Tmp & " in Arabic is " & cRomanToArabic(LCase$(Tmp)) & vbCr
   Tmp = UCase$(cArabicToRoman(Year(Int(Now)) + 1))
   Tmp1 = Tmp1 & Tmp & " in Arabic is " & cRomanToArabic(LCase$(Tmp)) & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestSearchI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Integer
   ReDim array(20) As Integer
   Call cRndInit(-1)
   For i = LBound(array) To UBound(array)
      array(i) = cRndI()
      List1.AddItem "" & array(i)
   Next i
   Tmp1 = Tmp1 & "Search '" & array(5) & "' is " & cSearchI(array(), array(5)) & vbCr
   Tmp1 = Tmp1 & "Search '" & array(10) & "' is " & cSearchI(array(), array(10)) & vbCr
   Tmp1 = Tmp1 & "Search '" & array(15) & "' is " & cSearchI(array(), array(15)) & vbCr
   Tmp1 = Tmp1 & "Search '" & array(20) & "' is " & cSearchI(array(), array(20)) & vbCr
   Tmp1 = Tmp1 & "Search '" & -1234 & "' is " & cSearchI(array(), -1234) & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cSearchI(array(), array(1))
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestSerial()
   Dim Tmp           As String
   Dim Tmp1          As String
   Dim getSD         As tagSERIALDATA
   Dim putSD         As tagSERIALDATA
   Dim i             As Integer
   Dim j             As Integer
   Call CreateFile
   Tmp1 = "TEST.DAT"
   Tmp = Tmp & "File '" & Tmp1 & "' is " & IIf(cIsSerial(Tmp1) = True, "serialized", "not serialized") & vbCr & vbCr
   putSD.Description1 = "T2WIN-16 demonstration"
   putSD.Description2 = "Under the blue sky, the sun lights"
   putSD.Number = 136
   Tmp = Tmp & "Put/Modify '" & Trim$(putSD.Description1) & "' - '" & Trim$(putSD.Description2) & "' - '" & putSD.Number & "'" & vbCr & "into file '" & Tmp1 & "' is " & IIf(cSerialPut(Tmp1, putSD), "OK", "KO") & vbCr
   i = cSerialGet(Tmp1, getSD)
   Tmp = Tmp & "Get from '" & Tmp1 & "' is : " & vbCr
   Tmp = Tmp & "  description 1 : " & Trim$(getSD.Description1) & vbCr
   Tmp = Tmp & "  description 2 : " & Trim$(getSD.Description2) & vbCr
   Tmp = Tmp & "  number : " & getSD.Number & vbCr & vbCr
   Tmp = Tmp & "Add 2 to serialized number part into file '" & Tmp1 & "' is " & IIf(cSerialInc(Tmp1, 2), "OK", "KO") & vbCr
   i = cSerialGet(Tmp1, getSD)
   Tmp = Tmp & "Get from '" & Tmp1 & "' is : " & vbCr
   Tmp = Tmp & "  description 1 : " & Trim$(getSD.Description1) & vbCr
   Tmp = Tmp & "  description 2 : " & Trim$(getSD.Description2) & vbCr
   Tmp = Tmp & "  number : " & getSD.Number & vbCr & vbCr
   Tmp = Tmp & "Substract 9 to serialized number part into file '" & Tmp1 & "' is " & IIf(cSerialInc(Tmp1, -9), "OK", "KO") & vbCr
   i = cSerialGet(Tmp1, getSD)
   Tmp = Tmp & "Get from '" & Tmp1 & "' is : " & vbCr
   Tmp = Tmp & "  description 1 : " & Trim$(getSD.Description1) & vbCr
   Tmp = Tmp & "  description 2 : " & Trim$(getSD.Description2) & vbCr
   Tmp = Tmp & "  number : " & getSD.Number & vbCr & vbCr
   Tmp = Tmp & "File '" & Tmp1 & "' is " & IIf(cIsSerial(Tmp1) = True, "serialized", "not serialized") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cSerialGet(Tmp1, getSD)
   Next i
   Tmp = Tmp & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp
End Sub
Private Sub TestSetAllBits()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Set all bits of [" & Tmp & "] on True is "
   Call cSetAllBits(Tmp, True)
   Tmp1 = Title & "[" & Tmp & "] " & vbCr & vbCr
   Title = "Set all bits of [" & Tmp & "] on False is "
   Call cSetAllBits(Tmp, False)
   Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Call cSetAllBits(Tmp, True)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestSetBit()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Set bit 0,5,3 of [" & Tmp & "] on True is "
   Call cSetBit(Tmp, 0, True)
   Call cSetBit(Tmp, 5, True)
   Call cSetBit(Tmp, 3, True)
   Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & vbCr & vbCr
   Title = "Set bit 22,30,38 of [" & Tmp & "] on False is "
   Call cSetBit(Tmp, 22, False)
   Call cSetBit(Tmp, 30, False)
   Call cSetBit(Tmp, 38, False)
   Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & vbCr & vbCr
   Title = "Set bit 0,5,3 of [" & Tmp & "] on False is "
   Call cSetBit(Tmp, 0, False)
   Call cSetBit(Tmp, 5, False)
   Call cSetBit(Tmp, 3, False)
   Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & vbCr & vbCr
   Title = "Set bit 22,30,38 of [" & Tmp & "] on True is "
   Call cSetBit(Tmp, 22, True)
   Call cSetBit(Tmp, 30, True)
   Call cSetBit(Tmp, 38, True)
   Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Call cSetBit(Tmp, 7, True)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestSetI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Double
   ReDim array(ItemMean) As Integer
   Randomize Timer
   For i = LBound(array) To UBound(array)
      array(i) = 0
      List1.AddItem "" & array(i)
   Next i
   j = cSetI(array(), 1024)
   For i = LBound(array) To UBound(array)
      List2.AddItem "" & array(i)
   Next i
   Tmp1 = Tmp1 & "Set 1024 to element 1 of an integer array is : " & array(1) & vbCr & vbCr
   Tmp1 = Tmp1 & "Set 1024 to element " & ItemMean & " of an integer array is : " & array(ItemMean) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cSetI(array(), 1.11)
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestSortI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Integer
   ReDim array(ItemMean) As Integer
   Randomize Timer
   For i = LBound(array) To UBound(array)
      array(i) = RandI * Rnd(1)
      List1.AddItem "" & array(i)
   Next i
   j = cSortI(array())
   For i = LBound(array) To UBound(array)
      List2.AddItem "" & array(i)
   Next i
   cStartBasisTimer
   For i = 1 To ItemFile
      j = cSortI(array())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestSpellMoney()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim Units      As String
   Dim Cents      As String
   Units = "dollars"
   Cents = "cents"
   Tmp1 = "Spelling the following money value " & vbCr & vbCr
   Tmp1 = Tmp1 & "4.12 is '" & cSpellMoney(4.12, Units, Cents) & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "16 is '" & cSpellMoney(16, Units, Cents) & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "25 is '" & cSpellMoney(25, Units, Cents) & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "34 is '" & cSpellMoney(34, Units, Cents) & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "43 is '" & cSpellMoney(43, Units, Cents) & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "61 is '" & cSpellMoney(61, Units, Cents) & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "98765.43 is '" & cSpellMoney(98765.43, Units, Cents) & "'" & vbCr & vbCr
   Tmp1 = Tmp1 & "123456789.75 is '" & cSpellMoney(123456789.75, Units, Cents) & "'" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cSpellMoney(12.34, Units, Cents)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestSplitPath()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim n          As Integer
   Dim j          As Long
   Dim SPLITPATH  As tagSPLITPATH
   Tmp1 = ""
   Tmp = "C:\AUTOEXEC.BAT"
   Tmp1 = Tmp1 & "Split Path " & Tmp & " into four components is :" & vbCr & vbCr
   n = cSplitPath(Tmp, SPLITPATH)
   Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDrive & vbCr
   Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDir & vbCr
   Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nName & vbCr
   Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nExt & vbCr & vbCr
   Tmp = cGetSystemDirectory() & "\t2win-16.dll"
   Tmp1 = Tmp1 & "Split Path " & Tmp & " into four components is :" & vbCr & vbCr
   n = cSplitPath(Tmp, SPLITPATH)
   Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDrive & vbCr
   Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nDir & vbCr
   Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nName & vbCr
   Tmp1 = Tmp1 & Space$(3) & SPLITPATH.nExt & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      n = cSplitPath(Tmp, SPLITPATH)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestStringCompress()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "T2WIN-16, T2WIN-16, T2WIN-16, T2WIN-16"
   Tmp2 = cStringCompress(Tmp)
   Tmp3 = cStringExpand(Tmp2)
   Tmp1 = Tmp1 & "String Compress '" & Tmp & "' is " & Format$(Len(Tmp)) & " to " & Format$(Len(Tmp2)) & " bytes." & vbCr
   Tmp1 = Tmp1 & "String Expand is '" & Tmp3 & "'" & vbCr
   Tmp1 = Tmp1 & "Compare string contents (not sensitive) is " & IIf(LCase$(Tmp) = LCase$(Tmp3), "same", "not same") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cStringCompress(Tmp)
   Next i
   Tmp3 = cStringExpand(Tmp2)
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestStringCRC32()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Tmp = Text1.Text
   Title = "CRC32 for string [" & Tmp & "] is "
   Tmp1 = Title & Hex$(cStringCRC32(Tmp)) & vbCr & vbCr
   Title = "CRC32 for string [" & cReverse(Tmp) & "] is "
   Tmp1 = Tmp1 & Title & Hex$(cStringCRC32(cReverse(Tmp))) & vbCr & vbCr
   Title = "CRC32 for string [" & LCase$(Tmp) & "] is "
   Tmp1 = Tmp1 & Title & Hex$(cStringCRC32(LCase$(Tmp))) & vbCr & vbCr
   Title = "CRC32 for string [" & LCase$(cReverse(Tmp)) & "] is "
   Tmp1 = Tmp1 & Title & Hex$(cStringCRC32(LCase$(cReverse(Tmp)))) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      k = cStringCRC32(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestStringSAR()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "T2WIN-16, T2WIN-16, T2WIN-16, T2WIN-16 IS A DLL"
   Tmp2 = cStringSAR(Tmp, "T2WIN-16", "t2win-16", False)
   Tmp1 = Tmp1 & "Replace 'T2WIN-16' by 't2win-16'" & vbCr
   Tmp1 = Tmp1 & "     in" & vbCr
   Tmp1 = Tmp1 & Tmp & vbCr
   Tmp1 = Tmp1 & "     is" & vbCr
   Tmp1 = Tmp1 & Tmp2 & vbCr & vbCr
   Tmp2 = cStringSAR(Tmp, " TO ", "2", True)
   Tmp1 = Tmp1 & "Replace ' TO ' by '2'" & vbCr
   Tmp1 = Tmp1 & "     in" & vbCr
   Tmp1 = Tmp1 & Tmp & vbCr
   Tmp1 = Tmp1 & "     is" & vbCr
   Tmp1 = Tmp1 & Tmp2 & vbCr & vbCr
   Tmp2 = cStringSAR(Tmp, "T2WIN-16, ", "", True)
   Tmp1 = Tmp1 & "Replace 'T2WIN-16, ' by ''" & vbCr
   Tmp1 = Tmp1 & "     in" & vbCr
   Tmp1 = Tmp1 & Tmp & vbCr
   Tmp1 = Tmp1 & "     is" & vbCr
   Tmp1 = Tmp1 & Tmp2 & vbCr & vbCr
   Tmp2 = cStringSAR(Tmp, "I", "i", False)
   Tmp1 = Tmp1 & "Replace 'I' by 'i'" & vbCr
   Tmp1 = Tmp1 & "     in" & vbCr
   Tmp1 = Tmp1 & Tmp & vbCr
   Tmp1 = Tmp1 & "     is" & vbCr
   Tmp1 = Tmp1 & Tmp2 & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cStringSAR(Tmp, "T2WIN-16", "t2win-16", False)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestSubDirectory()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim k          As Long
   Title = "The 7 first directories in this directory are" & vbCr & vbCr
   Tmp1 = Title
   Tmp2 = cSubDirectory("*.*", True)
   For i = 1 To 7
      Tmp1 = Tmp1 & Tmp2 & vbCr
      Tmp2 = cSubDirectory("*.*", False)
   Next i
   Tmp1 = Tmp1 & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp = cSubDirectory("*.*", True)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestSumI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Double
   ReDim array(ItemMean) As Integer
   Randomize Timer
   m = 0
   For i = LBound(array) To UBound(array)
      array(i) = Int(RandI * Rnd(1))
      m = m + array(i)
      List1.AddItem "" & array(i)
   Next i
   Tmp1 = "The Sum of a integer array of " & (ItemMean + 1) & " elements is " & vbCr & vbCr & cSumI(array()) & " (" & m & ")" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To ItemFile
      m = cSumI(array())
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestSwap()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Long
   Dim i1         As Integer
   Dim i2         As Integer
   Dim s1         As String
   Dim s2         As String
   i1 = 3276
   i2 = 12345
   s1 = "Hello"
   s2 = "World"
   Tmp1 = "SwapI of [" & i1 & "," & i2 & "] is "
   Call cSwapI(i1, i2)
   Tmp1 = Tmp1 + "[" & i1 & "," & i2 & "]" & vbCr
   Tmp1 = Tmp1 + "SwapI of [" & i1 & "," & i2 & "] is "
   Call cSwapI(i1, i2)
   Tmp1 = Tmp1 + "[" & i1 & "," & i2 & "]" & vbCr
   Tmp1 = Tmp1 + "SwapStr of [" & s1 & "," & s2 & "] is "
   Call cSwapStr(s1, s2)
   Tmp1 = Tmp1 + "[" & s1 & "," & s2 & "]" & vbCr
   Tmp1 = Tmp1 + "SwapStr of [" & s1 & "," & s2 & "] is "
   Call cSwapStr(s1, s2)
   Tmp1 = Tmp1 + "[" & s1 & "," & s2 & "]" & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Call cSwapI(i1, i2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestSysMenuChange(Language As Integer)
   Call cLngSysMenu(Language, Me.hWnd)
End Sub
Private Sub TestTime()
   Dim Tmp1       As String
   Dim i          As Integer
   Dim nNow       As Long
   Dim nHour      As Integer
   Dim nMinute    As Integer
   Dim nSecond    As Integer
   nHour = Hour(Now)
   nMinute = Minute(Now)
   nSecond = Second(Now)
   nNow = cTimeToScalar(nHour, nMinute, nSecond)
   Tmp1 = Tmp1 & "Now scalar time is '" & nNow & "'" & vbCr
   nHour = 0
   nMinute = 0
   nSecond = 0
   Call cScalarToTime(nNow, nHour, nMinute, nSecond)
   Tmp1 = Tmp1 & "Hour : " & nHour & ", Minute : " & nMinute & ", Second : " & nSecond & vbCr & vbCr
   nNow = cTimeToScalar(32767, 59, 59)
   Tmp1 = Tmp1 & "Maximum scalar time is '" & nNow & "'" & vbCr
   nHour = 0
   nMinute = 0
   nSecond = 0
   Call cScalarToTime(nNow, nHour, nMinute, nSecond)
   Tmp1 = Tmp1 & "Hour : " & nHour & ", Minute : " & nMinute & ", Second : " & nSecond & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      nNow = cTimeToScalar(nHour, nMinute, nSecond)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestTimeBetween()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = "The time between 10:00 and 12:01 is " & cTimeBetween(600, 721) & " minutes" & vbCr & vbCr
   Tmp1 = Tmp1 & "The time between 23:58 and 01:02 is " & cTimeBetween(1438, 62) & " minutes" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cTimeBetween(0, 1439)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestTimer()
   Dim Tmp1          As String
   Dim Tmp           As String
   Dim Tmp2          As String
   Dim i             As Integer
   Dim j             As Integer
   Dim k             As Long
   Dim TimerHandle   As Integer
   Dim StartOk       As Integer
   Dim CloseOk       As Integer
   Tmp1 = "BASIS TIMER" & vbCr & vbCr
   Tmp1 = Tmp1 & "The elapsed time for a empty loop of 32766 iterations is "
   cStartBasisTimer
   For i = 1 To 32766
   Next i
   Tmp1 = Tmp1 & cReadBasisTimer() & " ms" & vbCr & vbCr
   Tmp1 = Tmp1 & "The elapsed time for a integer loop of 32766 iterations is "
   j = 0
   cStartBasisTimer
   For i = 1 To 32766
      j = j + 1
   Next i
   Tmp1 = Tmp1 & cReadBasisTimer() & " ms" & vbCr & vbCr
   Tmp1 = Tmp1 & "The elapsed time for a long loop of 32766 iterations is "
   k = 0
   cStartBasisTimer
   For i = 1 To 32766
      k = i * 2&
   Next i
   Tmp1 = Tmp1 & cReadBasisTimer() & " ms" & vbCr & vbCr
   Tmp1 = Tmp1 & "The elapsed time for a string loop of 1000 iterations is "
   cStartBasisTimer
   For i = 1 To 1000
      Tmp2 = Tmp2 + "a"
   Next i
   Tmp1 = Tmp1 & cReadBasisTimer() & " ms" & vbCr & vbCr
   Call cStartBasisTimer
   StartOk = cSleep(1000)
   Tmp1 = Tmp1 & "True time for 1 wait second is " & cReadBasisTimer() & " ms" & vbCr & vbCr
   TimerHandle = cTimerOpen()
   Tmp1 = Tmp1 & "EXTENDED TIMER (handle is '" & TimerHandle & "')" & vbCr & vbCr
   Tmp1 = Tmp1 & "The elapsed time for a empty loop of 32766 iterations is "
   StartOk = cTimerStart(TimerHandle)
   For i = 1 To 32766
   Next i
   Tmp1 = Tmp1 & cTimerRead(TimerHandle) & " ms" & vbCr & vbCr
   Tmp1 = Tmp1 & "The elapsed time for a integer loop of 32766 iterations is "
   j = 0
   StartOk = cTimerStart(TimerHandle)
   For i = 1 To 32766
      j = j + 1
   Next i
   Tmp1 = Tmp1 & cTimerRead(TimerHandle) & " ms" & vbCr & vbCr
   Tmp1 = Tmp1 & "The elapsed time for a long loop of 32766 iterations is "
   k = 0
   StartOk = cTimerStart(TimerHandle)
   For i = 1 To 32766
      k = i * 2&
   Next i
   Tmp1 = Tmp1 & cTimerRead(TimerHandle) & " ms" & vbCr & vbCr
   Tmp1 = Tmp1 & "The elapsed time for a string loop of 1000 iterations is "
   StartOk = cTimerStart(TimerHandle)
   For i = 1 To 1000
      Tmp2 = Tmp2 + "a"
   Next i
   Tmp1 = Tmp1 & cTimerRead(TimerHandle) & " ms" & vbCr & vbCr
   StartOk = cTimerStart(TimerHandle)
   StartOk = cSleep(1000)
   Tmp1 = Tmp1 & "True time for 1 wait second is " & cTimerRead(TimerHandle) & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
   CloseOk = cTimerClose(TimerHandle)
End Sub
Private Sub TestToggleAllBits()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Toggle all bits of [" & Tmp & "] is "
   Call cToggleAllBits(Tmp)
   Tmp1 = Title & "[" & Tmp & "] " & vbCr & vbCr
   Title = "Toggle all bits of [" & Tmp & "] is "
   Call cToggleAllBits(Tmp)
   Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Call cToggleAllBits(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestToggleBit()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = Text1.Text
   Title = "Toggle bit 7,22,15 of [" & Tmp & "] is "
   Call cToggleBit(Tmp, 7)
   Call cToggleBit(Tmp, 22)
   Call cToggleBit(Tmp, 15)
   Tmp1 = Title & "[" & Tmp & "] " & vbCr & vbCr
   Title = "Toggle bit 7,22,15 of [" & Tmp & "] is "
   Call cToggleBit(Tmp, 7)
   Call cToggleBit(Tmp, 22)
   Call cToggleBit(Tmp, 15)
   Tmp1 = Tmp1 & Title & "[" & Tmp & "] " & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Call cToggleBit(Tmp, i)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestToken()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = "A/BC\DEF=GHIJ?KLMNO:PQRSTUV"
   Title = "The 2,4,1,5 blocks of [" & Tmp & "] separated by any one of '/\=?' are " & vbCr
   Tmp1 = Title & "  2:" & cTokenIn(Tmp, "/\=?", 2) & vbCr & "  4:" & cTokenIn(Tmp, "/\=?", 4) & vbCr & "  1:" & cTokenIn(Tmp, "/\=?", 1) & vbCr & "  5:" & cTokenIn(Tmp, "/\=?", 5) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cTokenIn(Tmp, "/\=?", 2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestTrueBetween()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = "601 is not true between 720 and 840 => " & cTrueBetween(601, 720, 840) & vbCr & vbCr
   Tmp1 = Tmp1 & "601 is true between 540 and 602 => " & cTrueBetween(601, 540, 602) & vbCr & vbCr
   Tmp1 = Tmp1 & "61 is not true between 61 and 62 => " & cTrueBetween(61, 61, 62) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cTrueBetween(720, 0, 1439)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestTruncatePath()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp1 = Tmp1 & "Truncate the following path with a length of 25" & vbCr & vbCr
   Tmp = "t2win-16.bas"
   Tmp2 = cTruncatePath(Tmp, 25)
   Tmp1 = Tmp1 & Tmp & vbCr & " -> " & Tmp2 & "  (len=" & Len(Tmp2) & ")" & vbCr
   Tmp = "windows\system\t2win-16.bas"
   Tmp2 = cTruncatePath(Tmp, 25)
   Tmp1 = Tmp1 & Tmp & vbCr & " -> " & Tmp2 & "  (len=" & Len(Tmp2) & ")" & vbCr
   Tmp = "c:\windows\system\t2win-16.bas"
   Tmp2 = cTruncatePath(Tmp, 25)
   Tmp1 = Tmp1 & Tmp & vbCr & " -> " & Tmp2 & "  (len=" & Len(Tmp2) & ")" & vbCr
   Tmp = "c:\windows\system\visual\t2win-16\t2win-16.bas"
   Tmp2 = cTruncatePath(Tmp, 25)
   Tmp1 = Tmp1 & Tmp & vbCr & " -> " & Tmp2 & "  (len=" & Len(Tmp2) & ")" & vbCr
   Tmp = "c:\windows\system\visual\source\t2win-16\t2win-16.bas"
   Tmp2 = cTruncatePath(Tmp, 25)
   Tmp1 = Tmp1 & Tmp & vbCr & " -> " & Tmp2 & "  (len=" & Len(Tmp2) & ")" & vbCr & vbCr
   Tmp1 = Tmp1 & "Truncate the following path with a length of 35" & vbCr & vbCr
   Tmp = "t2win-16.bas"
   Tmp2 = cTruncatePath(Tmp, 35)
   Tmp1 = Tmp1 & Tmp & vbCr & " -> " & Tmp2 & "  (len=" & Len(Tmp2) & ")" & vbCr
   Tmp = "windows\system\t2win-16.bas"
   Tmp2 = cTruncatePath(Tmp, 35)
   Tmp1 = Tmp1 & Tmp & vbCr & " -> " & Tmp2 & "  (len=" & Len(Tmp2) & ")" & vbCr
   Tmp = "c:\windows\system\t2win-16.bas"
   Tmp2 = cTruncatePath(Tmp, 35)
   Tmp1 = Tmp1 & Tmp & vbCr & " -> " & Tmp2 & "  (len=" & Len(Tmp2) & ")" & vbCr
   Tmp = "c:\windows\system\visual\t2win-16\t2win-16.bas"
   Tmp2 = cTruncatePath(Tmp, 35)
   Tmp1 = Tmp1 & Tmp & vbCr & " -> " & Tmp2 & "  (len=" & Len(Tmp2) & ")" & vbCr
   Tmp = "c:\windows\system\visual\source\t2win-16\t2win-16.bas"
   Tmp2 = cTruncatePath(Tmp, 35)
   Tmp1 = Tmp1 & Tmp & vbCr & " -> " & Tmp2 & "  (len=" & Len(Tmp2) & ")" & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cTruncatePath(Tmp, 25)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Private Sub TestUncompact()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp = "987654321"
   Title = "Uncompact '" & Tmp & "' is "
   Tmp1 = Title & cUncompact(Tmp) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cUncompact(Tmp)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestUniqueFileName()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = "Generate unique filename with template WN is " & cUniqueFileName("WN") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cUniqueFileName("WN")
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestVersion()
   Dim Tmp        As String
   Dim Version    As Single
   Version = cGetVersion()
   Tmp = Tmp + "Version is " & Version
   Label3.Caption = Tmp
End Sub
Private Sub TestWalkThruWindow()
   Dim nClass        As String
   Dim nCaption      As String
   Dim nOwnerClass   As String
   Dim nOwnerCaption As String
   Dim nOwnerHwnd    As Integer
   Dim nhWnd         As Integer
   Dim i             As Integer
   Frame1.Visible = True
   List1.Clear
   List2.Clear
   List1.FontBold = False
   List2.FontBold = False
   nhWnd = cWalkThruWindow(nClass, nCaption, nOwnerHwnd, nOwnerClass, nOwnerCaption, True)
   Do While (nhWnd <> 0)
      i = i + 1
      List1.AddItem "[" & Format$(i, "00") & "] " & Right$("0000" + Hex$(nhWnd), 4) & " " & nCaption & " (" & nClass & ")"
      List2.AddItem "[" & Format$(i, "00") & "] " & Right$("0000" + Hex$(nOwnerHwnd), 4) & " " & nOwnerCaption & " (" & nOwnerClass & ")"
      nhWnd = cWalkThruWindow(nClass, nCaption, nOwnerHwnd, nOwnerClass, nOwnerCaption, False)
   Loop
End Sub
Private Sub TestWindowsIni()
   Dim Tmp        As String
   Tmp = Tmp + "DateSeparator is " + cGetDateSeparator() + vbCr
   Tmp = Tmp + "TimeSeparator is " + cGetTimeSeparator() + vbCr
   Tmp = Tmp + "ListSeparator is " + cGetListSeparator() + vbCr
   Tmp = Tmp + "DateFormat    is " + cGetDateFormat() + vbCr
   Tmp = Tmp + "HourFormat    is " + cGetHourFormat() + vbCr
   Tmp = Tmp + "Currency      is " + cGetCurrency() + vbCr
   Tmp = Tmp + "Language      is " + cGetLanguage() + vbCr
   Tmp = Tmp + "Country       is " + cGetCountry() + vbCr
   Tmp = Tmp + "CountryCode   is " + cGetCountryCode() + vbCr
   Label3.Caption = Tmp
End Sub
Private Sub TestWinINI1()
   Label3.Caption = cGetDevices() & vbCr & vbCr & "Length = " & Len(cGetDevices())
End Sub
Private Sub TestWinINI2()
   Label3.Caption = cGetPrinterPorts() & vbCr & vbCr & "Length = " & Len(cGetPrinterPorts())
End Sub
Private Sub TestWinINI3()
   Label3.Caption = cGetWinSection("windows") & vbCr & vbCr & "Length = " & Len(cGetWinSection("windows"))
End Sub
Private Sub TestHexaToX()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = "Hexa to Integer" & vbCr & vbCr
   Tmp2 = "0"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & vbCr
   Tmp2 = "1"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & vbCr
   Tmp2 = "A"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & vbCr
   Tmp2 = "A1"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & vbCr
   Tmp2 = "A1B"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & vbCr
   Tmp2 = "7FFF"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & vbCr
   Tmp2 = "A1B2"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & vbCr
   Tmp2 = "FFFF"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2I(Tmp2) & vbCr & vbCr
   Tmp1 = Tmp1 & "Hexa to Long" & vbCr & vbCr
   Tmp2 = "0"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & vbCr
   Tmp2 = "1"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & vbCr
   Tmp2 = "A"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & vbCr
   Tmp2 = "A1"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & vbCr
   Tmp2 = "A1B"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & vbCr
   Tmp2 = "A1B2"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & vbCr
   Tmp2 = "7FFFFFFF"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & vbCr
   Tmp2 = "B2A1A1B2"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & vbCr
   Tmp2 = "FFFFFFFF"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cH2L(Tmp2) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cH2I(Tmp2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestBinaryToX()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Tmp1 = "Binary to Integer" & vbCr & vbCr
   Tmp2 = String(1, "1")
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & vbCr
   Tmp2 = String(2, "1")
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & vbCr
   Tmp2 = String(4, "1")
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & vbCr
   Tmp2 = String(8, "1")
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & vbCr
   Tmp2 = String(16, "1")
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & vbCr
   Tmp2 = "0111111111111111"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & vbCr
   Tmp2 = "0101010101010101"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & vbCr
   Tmp2 = "1010101010101010"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2I(Tmp2) & vbCr & vbCr
   Tmp1 = Tmp1 & "Binary to Long" & vbCr & vbCr
   Tmp2 = String(1, "1")
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & vbCr
   Tmp2 = String(4, "1")
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & vbCr
   Tmp2 = String(8, "1")
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & vbCr
   Tmp2 = String(16, "1")
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & vbCr
   Tmp2 = String(32, "1")
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & vbCr
   Tmp2 = "0101010101010101"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & vbCr
   Tmp2 = "1010101010101010"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & vbCr
   Tmp2 = "01010101010101010101010101010101"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & vbCr
   Tmp2 = "10101010101010101010101010101010"
   Tmp1 = Tmp1 & Tmp2 & " -> " & cB2L(Tmp2) & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      j = cB2I(Tmp2)
   Next i
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub
Private Sub TestGZIPStringCompress()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim Tmp3       As String
   Dim i          As Integer
   Dim j          As Long
   Tmp1 = ""
   Tmp = "T2WIN-16, T2WIN-16, T2WIN-16, T2WIN-16"
   Tmp2 = cGZIPStringCompress(Tmp)
   Tmp3 = cGZIPStringExpand(Tmp2)
   Tmp1 = Tmp1 & "String Compress '" & Tmp & "' is " & Format$(Len(Tmp)) & " to " & Format$(Len(Tmp2)) & " bytes." & vbCr
   Tmp1 = Tmp1 & "String Expand is '" & Tmp3 & "'" & vbCr
   Tmp1 = Tmp1 & "Compare string contents (not sensitive) is " & IIf(LCase$(Tmp) = LCase$(Tmp3), "same", "not same") & vbCr & vbCr
   cStartBasisTimer
   For i = 1 To Item
      Tmp2 = cGZIPStringCompress(Tmp)
   Next i
   Tmp3 = cGZIPStringExpand(Tmp2)
   Tmp1 = Tmp1 & "speed for " & Item & " = " & cReadBasisTimer() & " ms" & vbCr & vbCr
   Label3.Caption = Tmp1
End Sub
Public Sub TestMinNotXI()
   Dim Title      As String
   Dim Tmp        As String
   Dim Tmp1       As String
   Dim Tmp2       As String
   Dim i          As Integer
   Dim j          As Integer
   Dim m          As Double
   ReDim array(ItemMean) As Integer
   Randomize Timer
   For i = LBound(array) To UBound(array)
      array(i) = RandI * Rnd(1)
      List1.AddItem "" & array(i)
   Next i
   j = cSortI(array())
   For i = LBound(array) To UBound(array)
      List2.AddItem "" & array(i)
   Next i
   List2.ListIndex = 0
   Tmp1 = "The MINNOTX of a integer array of " & (ItemMean + 1) & " elements (not '" & array(LBound(array)) & "') is " & Chr$(13) & Chr$(13) & cMinNotXI(array(), array(LBound(array))) & Chr$(13) & Chr$(13)
   cStartBasisTimer
   For i = 1 To ItemFile
      m = cMinNotXI(array(), array(LBound(array)))
   Next i
   Tmp1 = Tmp1 & "speed for " & ItemFile & " = " & cReadBasisTimer() & " ms"
   Label3.Caption = Tmp1
End Sub